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PREFACE 



This manual describes the program library maintenance 
utility Modify. Modify is part of the Network Operating 
System (NOS) for CDC®CYBER 170 Series Computer 
Systems; CDC CYBER 70 Series, Models 71, 72, 73, and 74 
Computer Systems; and the CDC 6000 Series Computer 
Systems. Modify is used to maintain and update source 
files that are on libraries in a compressed format. 



AUDIENCE 

Because the advantages of Modify are best utilized by a 
programmer with a large volume of source program text or 
symbolic data, the manual is written for the experienced 
NOS applications or systems programmer. 



ORGANI2 

The introduction describes features of Modify and presents 
an overview of its operation. The remaining sections 
describe the directives that the user supplies to control 
library creation and editing. Wherever possible, Modify 
usage is illustrated through examples. 

Appendix A describes the NOS utility OPLEDIT, which 
provides the capability to delete and reconstruct previous 
modification sets. 



RELATED PUBLICATIONS 

The NOS Version 1 Manual Abstracts, publication number 
84000420, is a pocket -sized manual containing brief 
descriptions of the contents and intended audience of all 
NOS and NOS product manuals. The abstracts can be 
useful in determining which manuals are of greatest 
interest to a particular user. 



Control Data also publishes a Software Publications 
Release History, publication number 60481000, of all 
software manuals and revision packets it has issued. This 
history lists the revision level of a particular manual that 
corresponds to the level of software installed at the site. 

For further information concerning Modify and NOS, 
consult the following manuals. 



Control Data Publication 


Publication 
Number 


Modify Instant 


60450200 


NOS Version 1 Reference Manual, 
Volume 1 


60435400 


NOS Version 1 Reference Manual, 
Volume 2 


60445300 


NOS Version 1 Applications Program- 
mer's Instant 


60436000 


Network Products 
Interactive Facility Version 1 
Reference Manual 


60455250 


Network Products 

Network Terminal User's Instant 


60455270 


NOS Version 1 Time-Sharing User's 
Reference Manual 


60435500 


NOS Version 1 Terminal User's 
Instant 


60435800 



DISCLAIMER 

This product is intended for use only as described in this 
document. Control Data cannot be responsible for the 
proper functioning of undescribed features or undefined 
parameters. 
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Modify maintains programs or data files in a compressed 
text form. Modify transforms the source file into a 
specially formatted file that allows the programmer to 
easily make or rescind changes to individual lines within 
the text of the file. This specially formatted file is called 
a program library file. Once the program library file has 
been created, Modify accepts specific changes, performs 
the changes, and produces several files of different types 
that reflect the changes. These files can then be saved, 
replaced, listed, punched, or compiled as the programmer 
desires. 



FEATURES 

Features of Modify include: 

• Formatting of files to facilitate line-by-line 
modification. 

• Inserting, deleting, deactivating, and reactivating 
previously deactivated lines within the file. 

• Rescinding one or more groups of changes 
previously applied to the text. 

• Replacing often-used groups of lines by one-line 
calls for their insertion. 

• Limiting the range of modifications to specified 
records. 

• Generating a file in a format suitable for input to 
processors such as compilers and assemblers. 






Executing from batch or interactive jobs. 

Processing directives from an alternate file. 

Providing comprehensive statistical output noting 
any changes made during the run and presenting 
the status of the program library. 

Providing support of 63- and 64-character sets. 



MODIFY ORGANIZATION 

Modify can be organized into three main functional blocks: 

1. Files used to initialize the program library - these 
contain the text from which Modify establishes 
the program library. 

2. Directives - these are user-specified instructions 
to Modify which establish the program library, 
produce changes in the text, perform various 
utility functions upon the files used by Modify, 
and alter certain operational characteristics of 
Modify. 



3. Output files - Modify produces these files after it 
performs the instructions specified by directives. 
Three of these files are updated versions of the 
text in different formats; the fourth is a report of 
actions taken during Modify's execution. 



FILES USED TO INITIALIZE ; PROGRAM LIBRARY 



Files used to initialize the program library can contain 
several programs and/or subroutines (each called a deck) 
kept as separate logical records on the file. The user can 
designate a group of frequently used source statements 
(such as a group of DATA or COMMON statements in a 
FORTRAN program) as a deck that can be shared by 
several decks, called a common deck. The user can then 
direct Modify to insert the text of the common deck within 
the text of the program with the appropriate calling 
statement. 

Files used to initialize the program library contain program 
text in one of two forms; source format or program library 
format. 

Source-format files are files typically prepared either as a 
card deck or through the text-file creation facilities of the 
NOS Interactive Facility or NOS time-sharing system (refer 
to the Interactive Facility Reference Manual or NOS 
Time-Sharing User's Reference Manual). All program 
library files begin as source-format files, which Modify 
processes to create program library files. 

A file in program library format has the following 
characteristics. 

• It is compressed (Modify has replaced three or 
more consecutive blanks within a line with special 
codes). 

• It is sequenced (Modify has assigned a sequence 
number and modification name to each line of the 
file). 

• It is indexed (Modify has built a directory of the 
records on the program library file). 



DIRECTIVES 

Directives specify instructions to Modify. They allow the 
user to create libraries and extensively direct the 
correction and modification process. Local and remote 
batch Modify runs specify in the MODIFY control 
statement the name of the file where the directives are 
located. If Modify is being used from an interactive 
terminal, the user may elect to name the file containing 
the directives in the MODIFY control statement, or, by 
default, have the system prompt the user for the directives. 
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A Modify directive has the following format. 
*dirname Pi,P2,.»,P n 

* The prefix character is in column 1. 

Modify initially defines it as an 
asterisk, but the user can change it with 
the PREFIX and PREFIXC directives. 
In this manual, the asterisk is used as 
the prefix character. 

dirname The directive name starts in column 2. 
It must be separated from any 
parameters. 

Pj Optional directive parameters. 

Numeric parameters are decimal. 

The directive name and parameters are separated by any 
character that has a display code value of 55g or greater; 
that is (assuming 64-character set), a character other than: 

A through Z 

through 9 

Some directives require specific separators. No embedded 
blanks are permitted within a parameter. However, any 
number of blanks can be between the directive name and 
the first parameter or between two parameters, provided 
the directive does not exceed 72 columns. 

Modify directives are of the following types. 

Directive Description 



Initialization 



Modification 



File Manipulation 



These directives specify the files 
Modify is to use to initialize the 
program library. They indicate 
whether the file is in source 
format (thereby causing Modify 
to make a copy of it in program 
library format) or is in program 
library format. 

These directives specify 
line-by-line changes (insertion, 
deletion, deactivation, or 
reactivation) for Modify to 
make. They also specify which 
decks Modify should copy to its 
output files. 

These directives instruct Modify 
to begin reading directives 
and/or program text from an 
alternate file and position the 
file (or other files local to the 
job). Certain files (refer to 
section 5) cannot be specified in 
these directives. 
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Directive 
Compile File 



Description 

These directives allow user 
control as the program library is 
being written onto the compile 
file. These directives are part of 
the text on the program library; 
thus, they are not processed until 
the program library is written to 
the compile file (see output files 
below). Compile file directives 
can be part of the files used to 
initialize the program library or 
they can be inserted by 
modification directives. 

These directives provide 
extended features to Modify. 
These directives affect the 
operating characteristics of 
Modify and are described in 
section 7. 



OUTPUT FILES 

Modify produces several files as output, all of which are 
optional. The user specifies these files through options on 
the MODIFY control statement. 



Special 



File 
Compile 



New Program 
Library 



Source-Text 



Statistical 
List 



Description 

The compile file is a program 
text file with user-specified 
modifications incorporated into 
it. It may be used as input to a 
language processor (such as a 
COBOL or FORTRAN compiler 
or the COMPASS assembler), 
directed to an output device such 
as a printer or card punch, or 
used as data for an application 
program. 

The new program library file 
contains the same updated text 
as the compile file, only in 
program library format. Thus 
Modify can process this file 
directly on subsequent runs. 

The source-text file contains the 
same updated text as the 
compile file. However, line 
sequence numbers have been 
removed and compile file 
directives have not been 
removed or acted upon by Modify. 

The statistical list file is 
a listing produced by Modify that 
shows the program text ehanges 
incorporated into the program 
library, details the status of the 
program library and other files 
output by Modify, and notes 
errors and other significant 
events occurring during Modify 
execution. 
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MODIFY EXECUTION 

Refer to figure 1-1 during the following discussion for a 
simplified view of a Modify run. 

Modify begins execution as a result of the operating system 
interpreting a MODIFY control statement (see section 2). 
Modify execution then progresses in three phases. 

1. Initialize program library. 

2. Read modification directives. 

3. Incorporate changes/write output files. 



INITIALIZE PROGRAM LIBRARY 

During this phase, Modify reads initialization directives 
(which must precede modification directives) from the 
directives file to prepare the program library. The first 
file to be included in the program library is the file 
declared on the MODIFY control statement by the P 
parameter (see section 2). Other files declared by 
initialization directives are merged with this file to form 
the program library. If the initialization directive specifies 
that a file is in source-text format, Modify converts the 
file to program library format before merging it with the 
program library. 

The initialization phase ends when Modify encounters the 
first modification directive. File manipulation directives 
and special directives do not terminate the initialization 
phase. 



PROGRAM OR 

DATA IN 
SOURCE CODE 



it n 



PROGRAM OR 

DATA IN 

PROGRAM LIBRARY 

FORMAT 



PROGRAM 

LIBRARY FILE 

ON TAPE OR 

WITHOUT 
DIRECTORY 



OLD 
PROGRAM 
LIBRARY 



SPECIAL AND FILE 

MANIPULATION 

DIRECTIVES 



INITIALIZATION 
DIRECTIVES 



READ MODIFICATION DIRECTIVES 

During this second phase, Modify reads the remaining 
directives on the directives file and stores any new text for 
insertion during the final phase. The interactive user is 
prompted for directives by Modify at the user's terminal or 
can specify the file containing the directives with the I 
parameter on the MODIFY control statement (refer to 
section 2). The batch user specifies the file containing the 
directives on the MODIFY control statement by the I 
parameter (refer to section 2). The default file is the job 
input file. An alternate directives file can be specified by 
the appropriate file manipulation directive (refer to section 
5). 



INCORPORATE CHANGES/WRITE OUTPUT FILES 

During this final phase, Modify performs the requested 
changes, incorporating them into the output files requested 
on the MODIFY control statement. Each inserted line is 
assigned a modification name previously specified by a 
modification directive (refer to section 4) and a sequence 
number assigned by Modify. These can be used in later 
Modify runs to make further changes to the text. All lines 
having the same modification name comprise a modi- 
fication set. Compile file directives are also processed at 
this time. 



NEW 
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LIBRARY 



MODIFICATION 
DIRECTIVES 
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FILE 
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LIBRARY FILE 
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STATISTICAL 
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Figure 1-1. Simplified Modify Execution Flow 
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This phase can be initiated either by Modify interpreting ail 
♦EDIT directive (see section 4) on a directive file or by an 
edit option parameter on the MODIFY control statement 
specifying this phase after Modify has exhausted the 
directive file (see section 2; F and U options). 



NAME CONVENTIONS 

File names used in Modify must conform to the NOS 
standard: one- to seven-character names, valid characters 
being A through Z and through 9. 

Modification set names, deck names, and defined names 
can be one- to seven-character names of modification sets, 
decks, or names in a *DEFINE directive for use in compile 
file directives. Valid characters are: 

A through Z 

through 9 

+ -*/()$ = 



LINE IDENTIFICATION 

The modification directives DELETE, INSERT, and 
RESTORE, and the file manipulation READPL directive 
require line identifiers. These identifiers can be specified 
in either the complete or abbreviated form. 

The complete format of a line identifier is: 

modname.number 

modname One- to seven-character name of a 

modification set. A period terminates 
the modification name. 

number Decimal ordinal (1 to 262143) of the 

line within the correction set. A blank 
or any character other than through 
9 terminates the sequence number. 

The abbreviated form of a line identifier is: 

number 

When only the number is used for line identification 
(modname is omitted), Modify uses the name from the most 
recent MODNAME or DECK directive. 



ASCII MODE CONSIDERATIONS 

Several problems can arise when using Modify from an 
interactive job while the terminal is in ASCII 128-character 
set mode. Refer to the NOS Reference Manual, Volume 1, 
for a description of ASCII character sets. 

Directives entered interactively from the terminal, or 
those in an alternate directive input file, must not contain 
characters in 6/12 display code; that is, directives must be 
entered in all uppercase characters. Modify does not 
recognize lowercase characters. Furthermore, any 
nonalphanumeric characters used in the directives must be 
chosen from the 64-character subset. 

When creating a program library, several precautions 
should be taken. While a source file can contain any ASCII 
characters, all deck names and compile file directives must 
be in uppercase (no escape codes). Care should also be 
taken when entering source lines in ASCII mode. Each 
character can actually occupy 12 bits (escape code and 
character) and what appears to be a line width of 65 
characters, for example, can actually be 130 characters. 
The default line width in Modify is 72 6-bit characters with 
an upper limit (refer to section 7) of 100 6-bit characters. 



MODIFY EXAMPLES 

Examples in this manual are for illustrative purposes only. 
These examples may be neither the most efficient nor 
necessarily recommended methods of using Modify 
directives. 

Figure 1-2 details a job submitted to local or remote batch, 
and figure 1-3 illustrates the same job entered from an 
interactive terminal. The user need not be concerned with 
the meaning of directives or of parameters on the MODIFY 
control statement at this point. Instead, the user should 
compare the structure of the two jobs. 

Subsequent examples in this manual (with the exception of 
examples in sections 3 and 9) depict only jobs entered from 
an interactive terminal. 

The examples pertaining to a group of directives 
immediately follow the discussion of those directives. 
Some of the files created and modified in an example have 
been retained and used in the following example. 
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JOBMOD. 

USER (USERNUM , PASSWRD, FAMILY) 

CHARGE (CHARNUM,PROJNUM) 

GET(MAINP) 

COPYSBF(MAINP) 

MODIFY(P=0,F,N) 

SAVE (NPL=MAINPL) 

— EOR — 

*REWIND MAINP) 

*CREATE MAINPJ 

— EOI — -< 



-Input directives for Modify statement. 

(End-of-information is 6/7/8/9 multiple punch 
(in column 1. 



Figure 1-2. Modify Execution from Batch 



batch -« — 

$RFL,0. 

/old.mainp 

/lnh,r 

EECK1 

*** MAIN PROGRAM 

PROGRAM MAIN(OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB1 

PRINT*,"END MAIN PROGRAM." 

STOP 

END 
-EOR-- 
DECK3 

*** EMPTY DECK 
--EOR— 

/modify,p=0,f,n,l=0 
? *create mainp -. 



-After logging in, user requests batch subsystem. 



. MODIFICATION COMPLETE . 
/replace , npl=mainpl 



/User specifies 1=0 indicating that he does not wish 
(to receive Modify output. 

I Input directives are requested and entered 
immediately following Modify statement. Null 
input line (carriage return only) terminates 
input. 

(Program notifies user that it has completed 
(modification. 



Figure 1-3. Modify Execution from Interactive Terminal 



60450100 F 



1-5 



o 
o 
o 
o 
o 
o 
o 
o 
o 



c 



If "N 



'\.J 

o 

o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 



MODIFY CONTROL STATEMENT 



2 I 



The following control statement causes the Modify 
program to be loaded from the operating system 
library into central memory and to be executed. 
Parameters specify options and files. 



Option 



Significance 



MODIFY (p r p 2 . 



•Pn> 



The optional parameters, pj, may be in any order 
within the parentheses. Generally, a parameter 
can be omitted or can be in one of the following 
forms. 

Option 
Option = value 
Option=0 

where option is one or two characters as defined in 
the following text. Unless Q or X is selected, 
parameters CB, CG, CL, or CS are meaningless. 
Value is a one- to seven-character name of a file 
or is a character string. 



CL 

CL=filename 

Omitted or 
CL = 



CL - COMPASS list output including ^comment lines. 
Q or X option only. 

List output on OUTPUT file 

(L=OUTPUT). 

List output on named file (L= 

filename). 

Short list instead of full list is 

generated on OUTPUT file 

(L=0). 

CS - COMPASS systems text; Q or X option only. 

Omitted or CS Systems text on SYSTEXT over- 
lay (S=SYSTEXT) 

CS=filename Systems text on named file 
(S=filename) 

CS=0 No systems text (S=0) 

CV - Character set conversion 



Option 



Significance 



A - Compressed compile file 

Omitted Compile file is not in com 

A 



Omitted or 

CV=0 

CV=63 



CV=64 



pressed format. 

Compile file is in compressed 

format. 



No conversion takes place. 

Convert library created using 

64-character set to 63-character 

set. 

Convert library created using 

63-character set to 64-character 

set. 



C - Compile file output 

Omitted or C Compile output to be written 

on file COMPILE. 

C=filename Write compile output on 

named file. 

C=0 No compile output. 

CB - COMPASS binary; Q or X option only. 
Omitted or CB COMPASS binary output 



CB=filename 



CB=0 



written on the load -and -go 

file (B=LGO). 

COMPASS binary output 

written on the named file 

(B=filename). 

No binary output (B=0), 



| NOTE | 

When the CV=63 or CV=64 conversion 
option is selected, Modify forces C=0 
(no compile file generation). 



Conversion is recommended if the character set 
of the old program library is not the same as the 
character set used when the program library is 
modified. Use CATALOG to determine the 
character set of the program library (refer to 
volume 1 of the NOS Reference Manual). Check 
with a systems analyst to determine the character 
set in use at the site. 



D 



CG - COMPASS get text option; Q or X option only. 
Takes precedence over CS. 

Load systems text from 
SYSTEXT (G = SYSTEXT). 
Load systems text from 
named file (G=filename). 
SYSTEXT not defined (G = 0). 
Load systems text from over- 
lay named in CS option. 



CG 

CG=filename 

CG=0 
Omitted 



Debug 
Omitted 

D 



F - Full edit 
Omitted 

F 



A directive or fatal error aborts 
the job. 

A directive error does not abort 
the job; the D option does not 
affect fatal error processing. 



Decks to be edited are determined 
by the U parameter or by EDIT 
directives. 

All decks on the library are to 
be edited and written on new 
program library, compile file, 
and source file if the respective 
options are selected. 
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Option 

I - Directive input 

Omitted or I 
I=filename 

1=0 

L - List output 
Omitted or L 

L=filename 



L=0 

LO - List options 
Omitted or LO 



LO=c,c . . . c 
12 n 



Significance 



Directives on job INPUT file. 
Directives comprise next 
record oh named file. 
No directive input. 



List output is written on job 
OUTPUT file. This file is 
automatically printed. 
List output is written on the 
named file. It is the user's 
responsibility to assure that 
the file is saved at job end 
or is printed. 

Modify does not generate a 
list output file. 



List Option E is selected if 
the list output file is assigned 
to an interactive terminal. 
Options C, D, E, M, S, T, and 
W are selected otherwise. 

Each character (c£) selects an 
option to a maximum of seven 
options. The characters must 
not be separated. 



Option 



Significance 



Option 


Significance 


A 


List active lines in 




deck 


C 


List directives other 




than INSERT, DE- 




LETE, RESTORE, 




MODNAME, I, or D 


D 


List deck status 


E 


List errors 


I 


List inactive lines 




in deck 


M 


List modifications 




performed 


S 


Include statistics on 




listing 


T 


List text input 


W 


List compile file 




directives 



Example: LO=ADEMS 



NR - No rewind of compile file 

Omitted Compile file is rewound at be- 

ginning and end of Modify run. 

NR Compile file is not rewound at 

beginning and end of Modify 
run. 

P - Program library input 

Omitted or P Program library on file OPL. 
P=filename Program library on named file. 

P = No program library input file. 

Q - Execute named program; no rewind of directives 
file or list output file. 

Omitted or Q=0 Assembler or compiler is not 
automatically called at end of 
the Modify run. 

Q=program At the beginning of the Modify 

run, Modify sets LO=E and sets 
the A parameter. At the end of 
the run, Modify calls the as- 
sembler or compiler specified 
by program. 

Q At the beginning of the Modify 

run, Modify sets LO=E and sets 
the A parameter. At the end of 
the run, Modify calls the COM- 
PASS assembler. When this 
option is selected, the CB, CL, 
CS, and CG parameters are 
meaningful. Compiler input is 
assumed to be COMPILE. All 
other parameters are set by de- 
fault. If CL is not specified 
with Q, lines beginning with an 
asterisk in column 1 are not 
written to the compile fiie (com- 
pile file directives are processed, 
however). 

S - Source output; illegal when A, Q, or X are selected. 

S Source output written on file 

SOURCE. 

Source output written on named 
file. It is the user's responsi- 
bility to assure that the file is 
saved at job end. 

Modify does not generate a source 
output file. 



N - New program library output 



N 



N=filename 



Omitted 
N=0 



New program library to be 

written on file NPL. 

New program library to be 

written on named file. It is 

the user's responsibility to 

assure that the file is saved 

at job end. 

Modify does not generate a 

new program library. 



S=filename 

Omitted or S = 

Update edit 
Omitted 

U 



NOTE 



If a new program library is being genera- 
ted, an EVICT is performed upon it (NPL 
or filename) before it is written on (refer 
to the NOS Refer enee Manual, volume 1, 
for a description of EVICT) » 



2-2 



Decks to be edited are determined 
by EDIT directives or by the F 
parameter. 

Only decks for which directives 
file contains DECK directives 
are edited and written on the 
compile file, new program li- 
brary, and source file if the 
respective options are on. F, if 
specified, takes precedence. 

X - Execute named program; directives file and list 
output file rewound. 

Same as Q option, except Modify 
directives input (i parameter) and 
list output (L parameter) files are 
rewound before processing. 
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Option 
Z - Control statement input 



Significance 



Omitted 



The control statement does 
not contain the input direc- 
tives. 

The Modify control statement 
contains the input directives 
following the control state- 
ment terminator; the input 
file is not read. This elimi- 
nates the need to use a sepa- 
rate input file for the direc- 
tives when only a few direc- 
tives are needed. The first 
character following the con- 
trol statement terminator is 
the separator character for 
all directives on the control 
statement. Any display code 



Option Significance 

character which is not used 
in any of the directives, in- 
cluding a space, can be used 
as the separator character. 
The directives can extend to 
column 72 on the statement. 
Continuation cards are not 
permitted. 



| NOTE I 

Do not place a con- 
trol statement ter- 
minator after the 
directives. 



Example: MODIFY(Z)/*EDIT, 
DE CK 1 / *E DIT , DE CK2 
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INITIALIZATION DIRECTIVES 



Modify initialization directives are placed on the 
directive file and precede all modification direc- 
tives. They are: 

CREATE Converts source decks to 

program library format for 
modification. 

OPLFILE Declares additional program 

library files as input. 

COPY Copies one or more records 

from named file to old program 
library. 

COPYPL Copies one or more records 

from named file to an internal 
scratch file which is logically 
merged with program library. 

WIDTH Defines the number of columns 

preceding the sequencing in- 
formation on the compile and 
source files; can occur any- 
where in directives file. 

NOSEQ Specifies no sequence infor- 

mation on compile file. 



CREATE, OPLFILE, COPY, and COPYPL are il- 
legal after the first use of modification directives. 
WIDTH and NOSEQ can be processed as compile 
file directives. 



DECK1 <- 



COMMON <- 



COMMON/A/A 

COMMON/Z/Z 

-EOR- < 

DECK2 •< 



PROGRAM X 
I'CALL DECK1 



END 



PREPARING THE SOURCE FILE 

Before Modify can create a program library, the 
user must prepare the source file by assigning a 
deck name to each record of the source file and by 
identifying those decks that are to be common decks. 
The deck name must be the first line of the source 
deck. A one- to seven-character deck name begins 
in column 1. Legal characters are: 

A through Z through 9 +-*/()$ = 

If a second deck of the same name is introduced 
during initialization, the second deck takes prece- 
dence. In directory list output, the name of a re- 
placed deck is enclosed in parentheses. 

The second line of the source deck can identify the 
deck as common. To do so, it must contain the 
word COMMON in columns 1 through 6. An end-of- 
record terminates the deck. A set of decks is ter- 
minated by an end -of -file (6/7/9 multiple punch in 
column 1 for batch origin jobs) or end-of-information 

Figure 3-1 illustrates a typical Modify source deck. 

Usually a deckname (optionally followed by a 
COMMON) precedes each program or subprogram. 
However, more than one subprogram may be in- 
cluded in a deck as is indicated in figure 3-2. A 
user might group two programs if modification of 
one requires reassembly or recompilation of both 
programs. 

Because of the order in which decks are edited 
(refer to EDIT directive), it is recommended that 
common decks be the first decks on the program 
library. 



— Name of deck 

— Declares deck as common 

Source deck 

— End-of-record terminates deck 

— Name of deck 

Source deck 



-EOI- <- 



End-of-information terminates final deck 



Figure 3-1. Modify Source Deck 
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COMMON 




DATA 





DATA 





DATA 





-EOR- 





First deck 



FIRST 



IDENT 



END 
IDENT 



END 



FIRST 



SECOND 



Program one 



Program two 



-EOI- 



Second deck 



Figure 3-2. Deck with Several Programs 



CREATE - CREATE PROGRAM LIBRARY 



When Modify encounters this directive, it writes 
the contents of the named file from its current 
position until it encounters an end -of -file onto a 
scratch file in program library format with a di- 
rectory. CREATE provides a means of initially 
creating a program library for subsequent modifi- 
cation, for adding decks to the program library, or 
for replacing decks on the program library. | 



Format: 



^CREATE file 

file Name of file containing one or more 
source decks. A format error oc- 
curs if the name of the file is 
omitted from the directive. This 
file must be local to the user's job. 



OPLFILE - DECLARE ADDITIONAL 
OPL FILES 

The OPLFILE directive specifies additional flLes, 
already in program library format, that Modify log- 
ically merges with any existing program library. 
The existing library is made up of the old program 
library declared on the Modify control statement 
(P parameter) and/or other program library files 
established internally by CREATE or COPYPL. t 

The total number of files declared by OPLFILE 
directives cannot exceed 50 files. Additional files 
are ignored with the message: 

TOO MANY OPL FILES. 



Format: 

*OPLFILE file j , file 2 , . . . , file 

file. Names of one or more files in pro- 
gram library format to be merged 
logically with the existing program 
library. 

COPYPL - COPY PROGRAM 
LIBRARY TO SCRATCH 



The COPYPL directive copies records (decks) al- 
ready in program library format to an internal 
scratch file which Modify logically merges with any 
existing program library, f Modify builds a di- 
rectory for this file as it is copied, ignoring any 
existing directory on the file from which the copy is 
made. All or part of the file can be copied. The 
file may reside on either mass storage or magnetic 
tape. Modify ignores all records on the file which 
are not in program library format. 



Format: 



-COPYPL file, deckname 

file Name of file containing decks 

in program library format, 
with or without directory, and 
with or without other records in 
nonprogram library format. 

deckname Optional; name of last deck 

(record) to be copied. If deck- 
name is omitted from directive, 
or is not found on file, Modify 
copies all decks from the file 
starting at the current file 
position. 



f If the resulting program library contains two or more decks having the same name, the last one Introduced 
to Modify takes precedence; that is, the previous deck is logically replaced. 
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COPY - COPY PROGRAM 
LIBRARY TO OPL 

The COPY directive performs the same functions 
as the COPYPL directive, with the following differ- 
ences. 

• The records (decks) are copied to the old 
program library file declared on Modify 
control statement (P parameter). If P=0 
is specified on the Modify control state- 
ment, the use of the COPY directive is 
not allowed. 

• Modify performs an EVICT on the old pro- 
gram library file before the copy takes 
place. Hence, this file (if it already exists) 
should not contain any useful information. 
Refer to the NOS Reference Manual, 
volume 1, for a description of EVICT. 

• COPY can be preceded only by file manip- 
ulation directives. 

• Only one COPY directive is allowed for 
each Modify execution. 

COPY is useful when copying all or part of a pro- 
gram library residing on magnetic tape to a mass 
storage device, since the resulting program library 
file may be saved as a permanent file without having 
Modify create a new program library. Refer to the 
NOS Reference Manual, volume 1, for a description 
of permanent file control statements. 



Format : 



''COPY file, deckname 



file 



deckname 



Name of file containing decks in 
program library format, with 
or without directory, and with 
or without other records in 
nonprogram library format. 

Optional; name of last deck 
(record) to be copied. If deck- 
name is omitted from directive, 
or is not found on file. Modify 
copies all decks from the file, 
starting at the current file 
position. 



WIDTH - SET LINE WIDTH ON 
COMPILE FILE 

The WIDTH directive allows the user to set the 
width of lines prior to the modify program library 
and write compile phase. The last (or only) WIDTH 
directive encountered on the directives file is used 
during the compile phase until a compile file WIDTH 
is encountered. A compile file WIDTH directive is 
active only for the deck in which it is encountered. 
An initialization WIDTH directive is active for all 
other decks. If text is being inserted, the WIDTH 
directive is left in the text stream and is later pro- 
cessed as a compile file directive. WIDTH can 
occur anywhere in the directive file. 

Format: 

* WIDTH n 

n Number of columns preceding se- 

quence information on compile file 
and source file. Modify allows a 
maximum of 100 columns. During 
initialization of Modify, width is 
preset to 72. 

NOSEQ - NO SEQUENCE INFORMATION 

The NOSEQ directive allows the user to set the no 
sequence flag prior to the write compile phase. 
When no sequencing is requested, Modify does not 
include sequence information on the compile file. 
A SEQ directive encountered during the write com- 
pile phase clears the no sequence flag. If text is 
being inserted, the NOSEQ directive is inserted into 
the text stream and processed as a compile file 
directive. 

Format: 

*NOSEQ 

INITIALIZATION DIRECTIVES EXAMPLES 

Figures 3-3 and 3-4 illustrate the creation of pro- 
gram libraries and the use of several initialization 
directives. Figure 3-3 is a detailed terminal ses- 
sion: figure 3-4 represents the same job formatted 
for batch input. The user can submit the batch 
origin job to obtain and examine output produced bv 
Modify and FORTRAN. 
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batch 

$RFL,0. 

/old,mainp 

/lnh,r 

DECK1 

*»* MAIN PROGRAM 

PROGRAM MAIN(OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
— EOR-- 
DECK3 

*** EMPTY DECK 
--EOR-- 

/modif y , p=0 , 1=0 , f , n=mainpl , c=0 
? *create mainp 



Listing of source file, showing end-of-record 
marks, to be used to create program library. 
Notice required deck names. 



MODIFICATION COMPLETE . 
/catalog ,mainpl , r 

CATALOG OF MAINPL 
NAME TYPE 



REC 

1 
2 
3 



DECK1 
DSCK3 
OPL 



4 * EOF * 



OPL (64) 
OPL (64) 
OPLD 

SUM = 



FILE 
LENGTH 

30 
4 
5 



1 

CKSUM 

4476 
1725 
1310 



1 

CATALOG COMPLETE, 
/get, sub 1 
/eopycf ,sub1 
DECK2 
*** SUBROUTINE 1 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

CALL SUB2 

PRINT* ."EXIT SUBROUTINE 1." 

RETURN 

END 
END OF INFORMATION ENCOUNTERED, 
/rewind, sub 1 
$REWIND,SUB1. 

/modify, p=0,l=0, f ,n=altpl1 ,c=0 
? "create subl 

MODIFICATION COMPLETE, 
/catalog.altpll.r 

CATALOG OF ALTPL1 
REC NAME TYPE 



41 



IModtfy statement to create program Library 
with name MAINPL. MAINPL is the resu^f 
of converting the source text file MAINP to 
program library format. 



DATE 

77/10/07. 
77/10/07. 
77/10/07. 

The catalog utility is a convenient means of 
determining the decks and their types that 
were written on the program library. Refer 
to the NOS Reference Manual, volume 1, for 
information on the CATALOG control state- 
ment. 



DECK2 
OPL 



3 * EOF * 

1 

CATALOG COMPLETE. 
/get,altpl2 <— 



OPL (64) 
OPLD 

SUM = 



FILE 
LENGTH 

30 
3 

33 



Another source deck that the user wishes to 
maintain on a separate program library. 



ALTPLl tatement t0 Create P r °g ram library 



CKSUM 

5013 
2117 



DATS 

77/10/07. 
77/10/07. 



/catalog, altpl2,r 

CATALOG OF ALTPL2 
REC NAME TYPE 



User obtains alternate program library 
created at an earlier session. 



1 
2 



DECK3 
OPL 

3 * EOF * 
1 
CATALOG COMPLETE. 



OPL (64) 

OPLD 

SUM s 



FILE 
LENGTH 

25 

3 

30 



CKSUM 

0100 
2517 



DATE 

77/10/06. 
77/10/06. 



Figure 3-3. Initialization Directive Examples (Sheet 1 of 2) 
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/rename , opl=mainpl 
$RENAME,OPL=MAINPL. 
/modify , f , 1=0 , n=mainpl 
? *oplfile altpll 
? *copypl altpl2,deck3 



MODIFICATION COMPLETE. 
/catalog,mainpl,r 

CATALOG OF MAINPL 
EEC NAME TYPE 

1 DECK1 OPL (64) 

2 DECK3 OPL (64) 

3 DECK2 OPL (64) 

4 OPL OPLD 




Program library MAINPL is renamed OPL. 
In this manner, the P parameter is not needed 

on the Modify statement. 

Modify run to merge OPL with program Library 
ALTPL1 and then use ALTPL2 to replace deck 
DECK3 on OPL. The compile output of MAINPL 
is written on the default file COMPILE. 



FILE 
LENGTH 

30 

25 

30 

7 



1 
CKSUM 



DATE 



4476 77/10/07. 

0100 77/10/06. 

5013 77/10/07. 

5011 77/10/07. 



* EOF * 



SUM = 



1 

CATALOG COMPLETE, 
/replace .mainDl 
/copycf, compile 
*** MAIN PROGRAM 

PROGRAM MAIN(OUTPUT) 

PRINT*, "EEGIN MAIN PROGRAM." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
*** SUBROUTINE 2 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 
*** SUBROUTINE 1 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END 
END OF INFORMATION ENCOUNTERED, 
/rewind, compile 
$RE WIND, COMPILE. 
/ftn,i=compile,l=0 « 



114 



Listing of compile 
created by Modify 
Notice sequencing 
information . 



DECK1 


1 


DECK1 


2 


DECK1 


3 


DECK1 


4 


DECK1 


5 


DSCK1 


6 


DECK1 


7 


DECK3 


1 


DECK3 


2 


DECK3 


3 


DECK3 


4 


DECK3 


5 


DECK3 


6 


DECK2 


1 


DECK2 


2 


DECK2 


3 


DECK2 


4 


DECK2 


5 


DECK2 


6 


DECK2 


7 



.111 CP SECONDS COMPILATION TIME 
/lgo 
BEGIN MAIN PROGRAM. 
ENTER SUBROUTINE 1. 
ENTER SUBROUTINE 2. 

EXIT SUBROUTINE 2. < 

EXIT SUBROUTINE 1 . 
END MAIN PROGRAM. 

.005 CP SECONDS EXECUTION TIME 



J Compile file is used as input to FORTRAN 
■] Extended compiler. 



-Execution of FORTRAN program. 



Figure 3-3. Initialization Directive Examples (Sheet 2 of 2) 
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JOB1 

USER(USERNUM, PASSWRD, FAMILY) 

CHARGE(CHARNUM, PROJNUM) 

GET(MAINP) 

COPYSBF(MAINP) 

REWIND(MAINP) 

MODIFY(P=0,F, N=MAINPL, C=0) * — Creates new program library MAINPL. 

CATALOG(MAINPL, R) 

GET(SUBl) 

COPYSBF(SUBl) 

REWIND(SUBI) 

MODIFY(P=0,F,N=ALTPL1, C=0)-»— — Creates new program library ALTPL1. 

CATALOG(ALTPLl, R) 

GET(ALTPL2) 

CATALOG(ALTPL2, R) 

RENAME(OPL=MAINPL) 

MODIFY(F,N = MAINPD- Merges MAINPL, ALTPL1, and ALTPL2 through DECK3. 

CATALOG(MAINPL, R) 

REPLACE(MAINPL) 

COPYSBF(COMPILE) 

REWIND(COMPILE) 

FTN(I=COMPILE) 

LGO. 

-EOR- 

*CREATE MAINP 

-EOR- 

*CREATE SUB1 

-EOR- 

*OPLFILE ALTPL1 

*COPYPL ALTPL2, DECK3 

-EOI- 



Figure 3-4. Batch Job Creating Program Libraries 
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MODIFICATION DIRECTIVES 



Following the last initialization directive, place 
the modification directives and their accompany- 
ing insertion lines on the directives file. The 
first occurrence of a modification directive 
terminates the initialization phase. 

The following modification directives assign a 
modification name to the corrections being made, 
identify the deck being modified, and give the 
modification set name to be used when the short 
form of the line identifiers is used. 



IDENT 

DECK 

MODNAME 



Specifies modification name 
to be assigned to new modifi- 
cation set. 

Identifies deck to be altered. 

Identifies modification set 
within deck to be modified 
when short form of line iden- 
tifier is used and the modifi- 
cation name is different from 
that used in the last DECK or 
MODNAME directive. 



The following modification directives are used for 
inserting and deleting lines. 

DELETE or D Deactivates lines and optionally 
inserts lines in their place. 

RESTORE Reactivates lines and optionally 

inserts text after them. 

INSERT or I Inserts lines after specified 

line. 

These directives indicate to Modify that: 

• New lines are to be inserted into the deck 
and sequenced according to the correct 
modification set identifier. 

• Old lines are to be deleted. 

While inserting. Modify interprets file manipulation 
directives (for example, READPL changes the 
source of insertion lines but does not terminate in- 
sertion). Insertion terminates when Modify next 
encounters another modification directive or end- 
of-record. 

Insertion lines can include compile file directives. 
These directives are not interpreted but are in- 
serted as if they were text; the prefix character 
written on the program library is that specified on 
the directive. 

Other directives described in this section include: 

YANK Deactivate modification set. 

UNYANK Reactivate modification set. 

PURDECK Remove all lines in a deck. 



IGNORE Ignore subsequent modifica- 

tions to a named deck. 

EDIT Modify and write named deck 

to files specified on Modify 
control statement. 



IDENT - IDENTIFY NEW 
MODIFICATION SET 

The IDENT directive assigns a name to a modifica- 
tion set. Modify does not require any IDENT direc- 
tive; however, this practice is discouraged. If the 
directives file does not contain an IDENT directive, 
the system uses ******* as the modname. This 
default name should not be used when a new program 
library is made. The user can use one IDENT for 
several decks or can use several IDENT directives 
for one deck. There is no restriction on the place- 
ment of IDENT within the modification directives 
input file. 

Format : 

*IDENT modname 

modname One- to seven -character 

modification name to be 
assigned to this modifica- 
tion set. This name causes 
a new entry in the modifica- 
tion table for each deck for 
which the modification set 
contains a DECK directive 
until the next IDENT. Each 
line inserted by this set, 
and each line for which the 
status is changed, receive 
a modification history byte 
that indexes this modname. 

Normally, sequencing of new 
lines begins with one for each 
deck using the modification 
name. However, when the 
UPDATE directive is used, 
sequence numbers continue 
from deck to deck. 

Omitting modname causes a 
format error. If modname 
duplicates a name previously 
used for modifying a deck, 
Modify generates the message 

DUPLICATE MODIFIER NAME. 

A duplicate modname or en- 
countering modifications that 
refer to this modification name 
prior to this *IDENT modname 
cause a fatal error accompanied 
by the message IDENT NAME 
PREVIOUSLY REFERENCED. 
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DECK - IDENTIFY DECK TO BE MODIFIED 



The DECK directive identifies the name of the deck 
to which subsequent modifications apply. Subse- 
quent directives that specify a line identifier need 
only the sequence number if the modname of the 
line identifier is the same as the deck name (refer 
to Line Identification in section 2). 



Format: 



*DECK deckname 

deckname Name of deck for which 

modifications following this 
line apply. The modifications 
for this deck terminate with 
the next DECK directive. A 
DECK directive is required 
for each deck being modified. 

If the deckname is not found, 
Modify flags the error with 
the message 

UNKNOWN DECK. 

Omitting the deckname causes 
a format error. 



MODNAME - IDENTIFY MODIFICATION 
SET TO BE MODIFIED 

By using the MODNAME directive, the user indicates 
that subsequent line identifiers for which a modifica- 
tion name is omitted apply to modification set 
modname previously applied to the deck. Subsequent 
directives need only the sequence number for the 
modification set. The system assumes that the line 
is in set modname of the deck being modified. 

A MODNAME directive is effective only to the next 
DECK or MODNAME directive. The hierarchy for 
line identifiers is such that if the MODNAME direc- 
tive is used and the user wishes to return to use of 
the deckname as the assumed line identifier, he 
must restore the deckname by use of another 
MODNAME directive or use the long form of the 
line identifier, specifying the deck name. A 
MODNAME directive does not terminate an inser- 
tion if it is encountered in text being inserted. 

Format: 

♦MODNAME modname 

modname Name of modification set pre- 
viously applied to the deck. 
A line identifier that does not 
specify a modname is assumed 
to apply to this modification 
set. The modname remains 
in effect until another 
MODNAME or DECK direc- 
tive is encountered. 



DELETE - DELETE LINES 

With the DELETE or D directivej the user deacti- 
vates a line or block of lines and optionally replaces 
it with insertion lines following the DELETE direc- 
tive. 



4-2 



The next modification directive (or EOR) terminates 
insertion. File manipulation directives are inter- 
preted and may change the source of insertion lines 
but do not terminate insertion and are not inserted 
into the deck. Insertion lines can include compile 
file directives. 

A deactivated line remains on the library and retains 
its sequencing, but is not included in compile decks 
or source decks. 



Formats: 



*DELETE c 
*DELETE c 1 , c 2 



or 
or 



*D c 
*D c, 



c l* c 2 



Line identifier for single line 
to be deleted. 

Line identifiers of first and last 
lines in sequence of lines to be 
deleted. Cj must occur before 
C2 on the library. Any lines in 
the sequence that are already in~ 
active are not affected by the 
DELETE. 



RESTORE - REACTIVATE LINES 

With the RESTORE directive, a user reactivates a 
line or block of lines previously deactivated through 
a delete or yank and optionally inserts additional 
lines after the restored line or block of lines. The 
lines to be inserted immediately follow the RESTORE 
directive. The next modification directive (or EOR) 
terminates insertion. File manipulation directives 
are interpreted (and may change the source of in- 
sertion lines) but do not terminate insertion. They 
are not inserted into the deck. Insertion lines can 
include compile file directives. 

Formats: 

^RESTORE c 
^RESTORE Cj. c 2 

c Line identifier of single line to 

be restored. 

Line identifiers of first and last 
lines in sequence of lines to be 
restored^ Any lines in the se- 
quence that are already active 
are not affected by the RESTORE. 
ei must occur before eg on the 
Hbrary. 



c l ,c 2 



INSERT - INSERT LINES 



To insert new lines in the program library, use the 
INSERT directive. The lines to be inserted immedi- 
ately follow the INSERT or I directive on the direc- 
tives file. The next modification directive (or EOR) 
terminates insertion. File manipulation directives 
are interpreted (and may change the source for in- 
sertion lines) but do not terminate insertion. They 
are not inserted into the deck. Insertion lines can 
include compile file directives* 
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Formats: 

♦INSERT c 
c 



Dr *l c 

Identifies line after which 
new lines will be inserted. 



YANK - REMOVE EFFECTS OF 
MODIFICATION SET 

The YANK directive is used to deactivate a modifi- 
cation set. Modify searches the edited decks for 
all lines affected by the named modification set. 
If a line was activated by the modification set, 
Modify deactivates it. If a line was deactivated by 
the modification set, Modify reactivates it. Thus, 
Modify generates a new modification history byte 
for every line that changed status as a result of the 
YANK and effectively restores the edited decks to 
the status they had prior to modification modname 
or all modifications subsequent to modname. 

For the first format, only the one modification set 
is yanked. For the second format, Modify yanks all 
modification sets applied after modname, provided 
modname appears on the edited decks. YANK or 
UNYANK directives contained in the yanked modifi- 
cation set are not rescinded. 

YANK affects only those decks that are edited 
through the EDIT directive or the F or U options 
on the Modify control statement. In this way, the 
YANK directive can be selective. 



Formats : 

♦YANK modname 
♦YANK modname, * 

modname Name of modification set pre- 
viously applied to decks in the 
library. Omitting modname 
produces a format error. 
If Modify fails to find the 
modname in the modification 
table for the library, it issues 
an error. 



UNYANK - RESCIND ONE OR MORE 
YANK DIRECTIVES 



With the UNYANK directive, the user can rescind 
previous YANK directives. For the first format, 
only the one modification set is rescinded. For the 
second format, Modify rescinds all of the yanked 
modification sets, starting with modname, provided 
modname appears on the edited decks. 



Formats: 

♦UNYANK modname 
♦UNYANK modname, ♦ 

modname Name of only modification set 
to be rescinded or name of 



first of two or more modifi- 
cation sets to be rescinded 
for the library. Omitting 
modname results in a format 
error. 

PURDECK - PURGE DECK 

A PURDECK directive causes the permanent removal 
of a deck or group of decks from the program li- 
brary. Every line in a deck is purged, regardless 
of the modification set it belongs to. A deck name 
purged as a result of PURDECK can be reused as 
either a deck name or a modification name. 

A PURDECK directive can be any place in the direc- 
tives input. It terminates any previous correction 
set. Therefore, INSERT, DELETE, and RESTORE 
cannot follow a PURDECK directive but must come 
after an IDENT directive. Purging cannot be re- 
scinded. 

Format one : 

♦PURDECK deckname. , deckname„, . . . , 

deckname 
n 

deckname. Deck names for decks to be 

„ . , purged. 

Format two: 

♦PURDECK deckname . deckname, j 

a b | 

The deck named deckname a and all decks up to and 
including deckname^ listed in the deck list are purged. 

IGNORE - IGNORE DECK MODIFICATIONS 

An IGNORE directive causes any further modification 
directives for the designated deck to be ignored. 
Modify skips modification directives other than 
IDENT, EDIT, and DECK. When one of these direc- 
tives is encountered, Modify processes it and re- 
sumes processing the input stream. Any modification 
directives for the decks that precede the IGNORE 
directive are processed normally. The EDIT deck 
name(s) encountered after an IGNORE directive are 
checked against the current ignore list. Any EDIT 
deck names are deleted. If an ignored deck is en- 
countered in the EDIT directive form deckname a . deck- 
name)-,, the directive is flagged and is considered as 
having a modification error. The following message 
is issued. 

FORMAT ERROR IN DIRECTIVE 

Format: 

♦IGNORE deckname I 



EDIT - EDIT DECKS 

Editing is a process of modifying a deck, if modifi- 
cations are encountered during the modification phase, 
and writing the deck on the compile file, new program 
library, and source file. 

The three possible modes of editing are selective, 
full, and update. The modes are selected through 
Modify control statement options. 
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Format: 



*EDIT p r p 2 ,, 



A deckname or range of decknames 
in one of the following forms: 

deckname 

deckname . deckname, 
a b 

The first form requests that Modify 
edit a deck on the program library; 
the second form requests a range of 
decks starting with deckname a and 
ending with deckname^. If deck- 
names are in the wrong sequence, 
Modify issues the error message: 



NAMES SEPARATED BY * 
WRONG ORDER. 



IN 



If Modify fails to find one of the 
decks, it issues the message: 

UNKNOWN DECK - deckname. 



SELECTIVE EDIT MODE 

When selective editing is desired (neither F nor U 
selected on the Modify control statement), Modify 
edits only the decks specified on EDIT directives. 
EDIT directives cause a deck to be written regard- 
less of whether it was corrected or not. Decks are 
edited in the sequence encountered on EDIT direc- 
tives unless an UPDATE directive specifies other- 
wise. Modifications encountered during the modifi- 
cation phase are not incorporated in a deck if the 
deck is not specified on an EDIT directive. In 
particular, calling a common deck from within a 
deck being edited does not result in the common 
deck being edited unless the common deck is 
specified on an EDIT directive prior to the current 
deck being edited. 



If decks are being replaced or new decks are added, 
the new decks are placed at the end of the library. 
Thus, a deck formerly included in an EDIT sequence 
will no longer lie within the sequence. 

If a common deck is to be modified and a deck that 
calls the common deck is to be modified, the com- 
mon deck must be edited before the calling deck. 
Otherwise, the calling deck will receive a copy of 
the unmodified common deck. 



FULL EDIT MODE 

When a full edit is requested (F selected on Modify 
control statement), Modify ignores EDIT directives. 
It writes all decks in the sequence encountered on the 
program library. This option provides for creating 
a complete new program library. Because the same 
decks that are written on the new program library 
are also written on the compile file, a user wishing 
to obtain only a partial set of decks on the compile 
file must request separate runs of Modify - one run 
for creating the new program library and one run 
for creating the compile file. 

If a common deck to be modified is called by a deck 
that precedes the common deck on the OPL, the 
NPL receives a copy of the modified common deck, 
but the compile file receives a copy of the unmodi- 
fied common deck. The programmer can in two 
ways ensure that the compile file receives a copy 
of the modified common deck; the common deck can 
be moved ahead of the calling deck on the OPL be- 
fore the modifications to the decks are made, or a 
second modification run can be made using the NPL 
of the first run as the OPL for the second run. 



UPDATE EDIT MODE 

If the U option is selected on the Modify control 
statement. Modify edits only those decks mentioned 
on DECK directives and ignores the EDIT directives. 
Thus, only decks being updated by the Modify run 
are written on the compile file. This mode is not 
normally requested when a new program library or 
source file is desired. 

If a common deck is to be modified and a deck that 
calls the common deck is to be modified, the com- 
mon deck must be edited before the calling deck. 
Otherwise, the calling deck will receive a copy of 
the unmodified common deck. 



MODIFICATION DIRECTIVE EXAMPLES 

Figure 4-1 is a detailed example of some of the 
modification directives presented in this section. 
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batch 
.$RFL,0. 

/get,opl=mainpl 
/modify , f , 1=0 , n=mainpl 

"? *ident modi < 

*deok deck3 



2, deok deck3. 



•delete deck3.1 
*** subroutine 
*deck deck2 

*d 1 -s 

*** subroutine 1 , deck deck2 . 
*insert 3 

* call subroutine sub2 

* in deck2. 
*delete 7 

*** end deck2. 

*deck deckl 

*d 1 

*** main program, deck deckl . 



•This modification set is given name MODI. 



Refer to listing of compile file in figure 3- 
to reference line sequence numbers. 



*** 



MODIFICATION COMPLETE . 
/copycf .compile 

MAIN PROGRAM, EECK DECK! . 

PROGRAM MAIN (OUTPUT) 

PRINT*, "EEGIN MAIN PROGRAM." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 

SUBROUTINE 2, DECK DECK3. 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 

SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

CALL SUBROUTINE SUB2 

IN DECK. 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END DECK2.< 

OF INFORMATION ENCOUNTERED 



Listing of compile 
file created by 
Modify. 



*** 

END 

/modify, 1=0, p=mainpl,n=mpl1 ,c=com1 
? *ident mod2 
? *deck deck2 
? *restore 7 

?*dmod1.3 <— 

? *edit deck2 
? 

MODIFICATION COMPLETE, 
/copycf, com 1 

SUBROUTINE 1, EECK DECK2. 
SUBROUTINE SUB1 
PRINT*, "ENTER SUBROUTINE 
CALL SUBROUTINE SUB2 

CALL SUB2 * ' 

PRINT*, "EXIT SUBROUTINE 1. 
RETURN 

END < 

END DECK. 



(Note that user inadvertently deleted END 
I statement. 



*** 



J Modification run to restore deleted line, and 
1 delete line MODI. 3. 



Note that compile 
file contains only 
edited deck(s). 



*** 



-Note deleted line. 



•END statement restored. 



END OF INFORMATION ENCOUNTERED, 
/modify , 1=0 , p=mpl 1 , n=mpl2 , c=com2 
? *ident mod3 
? *deck deck2 
? *modname modi 
? *restore 3« 
? *edit deck2 
? 

MODIFICATION COMPLETE . 



M0D1 

DECK1 

DECK1 

DECK1 

DECK1 

DECK1 

DECK1 

M0D1 

DECK3 

DECK3 

DECK3 

DECK3 

DECK3 

MOD1 

DECK2 

DECK2 

M0D1 

M0D1 

DECK2 

DECK2 

DECK2 

MOD1 



MOD1 

DECK2 

DECK2 

MOD1 

DECK2 

DECK2 

DECK2 

DECK2 

M0D1 



1 
2 
3 
4 
5 
6 
7 
1 
2 
3 

5 
6 
1 
2 

3 
2 
3 
4 
5 
6 
4 



2 
3 
2 
4 
5 
6 
7 
4 



Line deleted in previous Modify run is restored. 



Figure 4-1. Modification Directive Examples (Sheet 1 of 2) 
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/copycf,com2 

*** SUBROUTINE 1, EECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

* CALL SUBROUTINE SUB2 

* IN DECK2. < 

CALL SUB2 

PRINT* , "EXIT SUBROUTINE 1 . " 
RETURN 
END 
*** END DECK2. 
END OF INFORMATION ENCOUNTERED, 
/rewind ,mainpl ,mpl2 
$REWIND,MAINPL,MPL2. 

/libedit , i=0 , p=mainpl , 1=0 , b=mpl2 , c <. 

EDITING COMPLETE, 
/catalog ,mainpl , r 

CATALOG OF MAINPL FILE 

REC NAME TYPE LENGTH 



-Restored line. 



MOD1 


1 


BECK2 


2 


DECK2 


3 


MOD1 


2 


MOD1 


3 


DECK2 


4 


DECK2 


5 


DECK2 


6 


DECK2 


7 


MOD1 


4 



1 DECK1 
MOD1 



2 
3 

4 
5 



DECK3 
M0D1 

DECK2 
MOD1 

OPL 

* EOF * 



OPL (64) 

OPL (64) 

OPL (64) 
MOD2 

OPLD 

SUM = 



MOD 3 



37 
34 
55 

11 

161 



1 

CATALOG COMPLETE, 
/replace , mainpl 

/modify , 1=0 , p=mainpl , c=com3 ,n=nplx < 

? *ident modx 
? "deck deck2 
? *yank mod3 
? "edit deck2 

9 

MODIFICATION COMPLETE. 
/ catalog, nplx,r 

CATALOG OF NPLX FILE 

REC NAME TYPE LENGTH 



I The LIBEDIT utility provides a convenient 
means of replacing or adding records on a file. 
Refer to the NOS Reference Manual, volume 1, 
for a description of the LIBEDIT utility. 

1 
CKSUM DATE 

7732 77/10/07. 

3117 77/10/06. 

3134 77/10/07. 

7477 77/10/07. 



{Temporary modification run to deactivate 
modification set MOD3 and selectively edit 
deck DECK2. J 



DECK2 
M0D1 

OPL 

* EOF * 



OPL (64) 55 

M0D2 (MOD 3 ■> 



1 
CKSUM 

4734 



DATE 
77/10/07. 



OPLD 



SUM = 



1 

CATALOG COMPLETE. 
/eopycf,com3 
*** SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 
* CALL SUBROUTINE SUB2 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1." 

RETURN 

END 
*** END DECK2. 
END OF INFORMATION ENCOUNTERED. 




2117 77/10/07. 

/Note that yanked modification set is enclosed in 
[parentheses. 



Compare with previous 
compile file of DECKS. 



M0D1 

DECK2 
DSCK2 
M0D1 
DECK2 


1 
2 
3 
2 
4 


DECK2 
DECK2 


5 
6 


DECK2 
MODI 


7 
4 



Figure 4-1. Modification Directive Examples (ihett 2 of 2) 
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FILE MANIPULATION DIRECTIVES 



File manipulation directives allow user control over 
files during the initialization and modification 
phases. Two of these directives, READ and 
READPL, may be used to change the source of di- 
rectives and insertion text from the directives file 
to an alternate file. While an insertion is in prog- 
ress, a file change does not terminate insertion. 
Insertion continues until Modify reads the next 
modification directive. File manipulation directives 
are illegal when Modify is reading from an alternate 
file and result in the following message. 

OPERATION ILLEGAL FROM ALTERNATE FILE 
INPUT. 

The file manipulation directives include: 

READ Read record or group of records 

from specified file. 

READPL Read deck or portion of deck from 
program library. 

BKSP Backspace specified number of 

records on file. 

SKIP Skip forward specified number of 

records on file. 

SKIPR Skip forward past the specified 

record on file. 

REWIND Rewind named files. 

RETURN Return named files to system. 



These operations cannot be performed on the follow- 
ing reserved files (or their equivalents). 



INPUT 

OUTPUT 

COMPILE 

SOURCE 

OPL 

NPL 

SCR1 

SCR 2 

SCR3 



Source of directives 
Statistics output 
Compile 
Source output 
Old program library 
New program library 
Scratch file 1 
Scratch file 2 
Scratch file 3 



These file names are reserved only through their 
respective Modify control statement options. For 
example, if the S option is not specified, the file 
SOURCE is not reserved and the user can use file 
manipulation directives specifying a file of that 
name. However, file names SCR1, SCR2, and 
SCR3 should not be used. 



READ - READ ALTERNATE 
DIRECTIVES; FILE 

The READ directive causes Modify to temporarily 
stop reading the directives file and begin reading 
directives and insertion text from the specified 
record on the named file or current position if 
deckname is omitted (or *). Unless * is the 
deekname field, Modify reads from the alternate 
directives file until it encounters an end-of-record 
and then resumes with the next directive on the 
primary directives file. 

If Modify is unable to find the named record, it 
issues the message 

RECORD NOT FOUND. 

Formats: 

*READ file 

*READ file, deckname | 

-READ file, * 

file Name of file containing insertion 

text and/or directives. 

deckname Optional; if deckname is speci- | 
fied, text must be in source 
file format; that is, the first 
word of record is the name 
of the record. Modify dis- 
cards the name before pro- 
cessing any text. 

* Optional; if specified, Modify 

processes all records on the 
file up to an end-of-file or a 
zero-length record. These 
records must be in source file 
format. 



READPL - READ PROGRAM LIBRARY 

The READPL directive causes Modify to temporarily 
stop reading the directives file and begin reading 
directives and insertion text from the specified 
Modify deck. It allows a user to insert text from 
one deck on the program library into another program, 
or to move text within a program. 

Formats: 

*READPL deckname 
*READPL deckname, c^, C2 

deckname Name of deck on old program 
library. 

c.., c„ Portion of deck to be read; 

must be more than one line. 
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Modify inserts all the active lines in the deck or 
portion of the deck specified by the READPL. if 
cj, C2 are omitted, it reads the entire deck before 
returning to the directive file. 



I NOTE | 

During processing of the READPL direc- 
tive, Modify does not perform any modi- 
fications to the text in the deck it is read- 
ing. If the user wishes the new text to be 
modified, he must make the corrections 
to the deck into which the text is being 
inserted; that is, the text is taken from 
the deck exactly as it is on the program 
library. 



BKSP - BACKSPACE FILE 

The BKSP directive repositions the named file one 
or more logical records in the reverse direction. 
It does not backspace beyond the beginning -of-infor- 
mation. 

Formats: 

-BKSP file 
*BKSP file, n 

file Name of file to be positioned. 

n Number of records to be 

skipped in the reverse direc- 
tion. If n is omitted, Modify 
backspaces one record. 

SKIP - SKIP FORWARD ON FILE 

The SKIP directive repositions the named file for- 
ward one or more logical records. If an end-of- 
information is encountered before the requested 
number of records has been skipped, the file is 
positioned at the end -of -information. 

Formats: 

*SKIP file 
*SKIP file, n 

file Name of file to be positioned. 

n Number of records to be 

skipped in the forward direc- 
tion. If n is omitted, Modify 
skips one record. 



SKIPlR - SKIP FORWARD PAST RECORD 

The SKIPR directive repositions the named file 
forward past the specified logical record. It does 
not position the file past the end -of -information. 
If Modify is unable to locate the record in the for- 
ward search, it positions the file at the end-of-infor- 
mation and issues the message 

RECORD NOT FOUND. 

Format: 

-SKIPR file, rname 

file Name of file to be positioned. 

rname Name of record on file that file 

is positioned after. 

REWIND - REWIND FILES 

The REWIND directive repositions one or more files 
to their first records. 

Format: 

*REWIND file r file 2 file 



file. 



Names of files to be rewound. 



RETURN - RETURN FILES TO SYSTEM 

The RETURN directive immediately returns files to 
the operating system. 



Format: 



*RETURN file j, file 2> .... file n 



file. 



Names of file to be returned. 



FILE MANIPULATION DIRECTIVE EXAMPLES 



Figure 5-1 illustrates several of the file manipulation 
directives discussed in this section. 
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File manipulation directives. 



batch 
$RFL,0. 

/old dirfil * — Alternate directives file. 

/lnh[r 

PRINT*, "LINE 1 ADDED BY MODIFICATION SET MODX." 
— EOR-- 

PRINT*,"LINE 2 ADDED BY MODIFICATION SET MODX." 
--EOR-- 
DFCKX 

PRINT*, "LINE 3 ADDED BY MODIFICATION SET MODX." 
— EOR-- 
•EDIT D3CK1 
•EDIT D3CK2 
"EDIT" DECK3 
--EOR-- 

/old ,opl=mainpl 
/get, dirfil 

/modify , 1=0 , n=newpl , c=comx 
? "skip dirfil, 2 
? *ident modx 
? *deck deck2 
? *i 2 

? *r-ead dirfil ,deckx 
? *bksp dirfil, 2 
? "deck deck3 
? «i 3 

? *read dirfil 
? *rewind dirfil 
? *deck deckl 
? *i 4 

? *read dirfil 
? *skipr dirfil, deckx 
? *read dirfil 
? *return dirfil 

9 

MODIFICATION COMPLETE . 
/copycf ,cotnx 
*** MAIN PROGRAM. DECK EECK1 . 

PROGRAM MAIN (OUTPUT) 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB1 

PRINTV'LINE 1 ADDED BY MODIFICATION SET MODX." 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
*** SUBROUTINE 1 , DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "LINE 3 ADDED BY MODIFICATION SET MODX." 

PRINT*, "ENTER SUBROUTINE 1." 

* CALL SUBROUTINE SUB2 

* IN EECK2. _ ., ... . . . 

CALL SUB2 Compile file containing 

PRINT*, "EXIT SUBROUTINE 1." modifications from 

RETURN alternate directives 

END file * 

*** END DECK2. 
*** SUBROUTINE 2, DECK DECK3. 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "LINE 2 ADDED BY MODIFICATION SET" MODX." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 
END OF INFORMATION ENCOUNTERED. 



MOD1 


1 


DECK1 


2 


DECK1 


3 


DECK1 


4 


MODX 


1 


DECK1 


5 


DECK1 


6 


DECK1 


7 


M0D1 


1 


DECK2 


2 


H)DX 


1 


DECK2 


3 


M0D1 


2 


M0D1 


3 


DECK2 


4 


DECK2 


5 


DECK2 


6 


DECK2 


7 


M0D1 


4 


M0D1 


1 


DECK3 


2 


DECK3 


3 


MODX 


1 


DECK3 


4 


DECK3 


5 


DECK3 


6 



Figure 5-1. File Manipulation Directive Examples (Sheet 1 of 2) 
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/catalog , newpl , r 

CATALOG OF NEWPL 




FILE 


1 




REC 


NAME 


TYPS 


LENGTH 


CKSUM 


DATE 


1 


DECK1 
M0D1 


OPL (64) 

MODX 




47 


7152 


77/10/07. 


2 


DECK2 
MODI 


OPL (64) 
M0D2 


MOD3 


65 


7111 
MODX 


77/10/07. 


3 


DECK3 
MODI 


OPL (64) 
MODX 




44 


7430 


77/10/06. 


4 


OPL 


OPLD 




7 


7403 


77/10/10. 


5 


* EOF * 


SUM = 




?07 







1 

CATALOG COMPLETE, 
/rewind, corax 
$REWIND,COMX. 
/ftn,i=comx,l=0 

.145 CP SECONDS COMPILATION TIME 
Ago 

BEGIN MAIN PROGRAM. 

LINE 3 ADDED BY MODIFICATION SET MODX. 

ENTER SUBROUTINE 1. 

ENTER SUBROUTINE 2. 

LINE 2 ADDED BY MODIFICATION SET' MODX. 

EXIT SUBROUTINE 2. 

EXIT SUBROUTINE 1 . 

LINE 1 ADDED BY MODIFICATION SET MODX. 

END MAIN PRtXJRAM. 

.007 CP SECONDS EXECUTION TIME 



Execution of modified program. 



Figure 5-1. File Manipulation Directive Examples (Sheet 2 of 2) 
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COMPILE FILE DIRECTIVES 



The directives described in this section provide 
user control during the write compile file phase. 
These directives are interpreted at the time the 
program library decks are written onto the compile 
file. A call for a common deck results in the deck 
being written on the compile file. Other directives 
allow control of file format. 

The user can prepare his original source deck with 
compile file directives embedded in it, or he can 
insert compile file directives into program library- 
decks as a part of a modification set. Compile file 
directives are not recognized when they are on the 
directives* file; they do not terminate insertion, but 
are simply considered as text lines to be inserted. 

Compile file directives include: 



WEOF 



CALL 

IFCALL 

NIFCALL 

CALLALL 
IF 

ELSE 
ENDIF 
COMMENT 
WIDTH 

NOSEQ 
SEQ 
WEOR 
CWEOR 



Write called deck onto com- 
pile file. 

Write called deck onto com- 
pile file if name is defined. 

Write called deck onto com- 
pile file if name is not de- 
fined. 

Write all decks onto compile 
file that have deckname be- 
ginning with specified char- 
acter string. 

Include lines in compile file 
if specified attribute is true 
and until a reversal directive 
is encountered (ELSE or 
ENDIF). 

Reverse an IF directive con- 
ditional range. 

Terminate an IF directive 
conditional range. 

Generate COMMENT pseudo 
instruction for COMPASS. 

Define number of columns 
preceding sequence informa- 
tion on compile file. 

Specify no sequence infor- 
mation on compile file. 

Specify sequence informa- 
tion on compile file. 



Write end- 
pile file. 



of-record on corn- 



Write end^of-file on compile 
file. . 



Write end-of-record on com- 
pile file if information has 
been written since the last 
end-of-record was written. 



|~NOTE | 

A common deck cannot call another 
common deck. That is, if the directives 
CALL, IFCALL, NIFCALL, or CALL- 
ALL are Ln a common deck, they are 
ignored. 



CALL - CALL COMMON DECK 



Modify places a copy of the requested deck on the 
compile file. It does not copy the request to the 
compile file. However, the new program library 
and the source file contain the CALL directive. 

Format: 

*CALL deckname 

deckname Name of common deck to be 
written on compile file. 



IFCALL - CONDITIONALLY CALL 
COMMON DECKS 



Modify places a copy Of the requested deck on the 
compile file if the conditional name has been defined 
on a DEFINE directive during the modification 
phase. If the name has not been defined, the com- 
mon deck is not written on the compile file. Modify 
does not copy the IFCALL directive to the compile 
file. 

Format: 

*IFCALL name, deckname 

name One- to seven-character condi- 

tional name. 

deckname Name of common deck to be 

written on compile file if name 
is defined. 



NIFCALL - CONDITIONALLY CALL 
COMMON DECKS 



Modify places a copy of the requested deck on the 
compile file if the conditional name has not been 
defined (refer to DEFINE directive, section 7) 
during the modification phase. If the name has 
been defined, the common deck is not written on 
the compile file. 
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Format: 

*NIFCALL name, deckname . 

name One- to seven-character 

conditional name. 

deckname Name of common deck to be 
written on compile file if 
name is not defined. 



CALLALL - CALL RELATED 
COMMON DECKS 

Modify places a copy on the compile file of every 
deck name beginning with the specified character 
string. 



Format: 



:=CALLALL string 



IF - TEST FOR CONDITIONAL RANGE 

Modify tests the specified condition and, if true, 
writes all following lines onto the compile file un- 
til encountering a reversal (ELSE) or termination 
(END IF) directive. If the condition is false, the 
lines are skipped until a reversal or termination 
directive is encountered. Lines skipped in such 
a range are treated as inactive. 

Format: 

*IF atr, name, value 



atr 



Attribute; must be one of the 
following: 



DEF 


name defined 


UNDEF 


name undefined 


EQ 


name equal to value 


NE 


name not equal to 




value 



value 



One- to seven-character string 
that is to be compared to names 
previously specified in a DEFINE 
directive. 

Numeric value to be compared 
to the value set by a DEFINE 
directive. This parameter is 
not required for DEF or UNDEF 
attributes. 



ELSE - REVERSE CONDITIONAL RANGE 

ELSE is a conditional range reversal directive. 
When encountered, the effects of a previous IF 
directive are reversed. An ELSE directive en- 
countered without an IF range in progress is 
diagnosed as an error. 

Format: 

*ELSE 
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ENDIF - TERMINATE CONDITIONAL RANGE 

ENDIF is a conditional range termination directive. 
When encountered, the effects of a previous IF 
directive are terminated. An ENDIF directive en- 
countered without an IF range in progress is diag- 
nosed as an error. 

Format: \ 

* END IF 



COMMENT - CREATE COMMENT LINE 

This directive causes Modify to create a COMPASS 
language COMMENT pseudo instruction (beginning 
in column 3) in the following format. Modify obtains 
the dates from the operating system. 



LOCATION 


OPERATION 


VARIABLE SUBFIELDS 


COMMENT 


crdate 


moddate comments 



crdate Creation date in the format 

Ayy/mm/dd. 

moddate Modification date in the format 
Ayy/mm/dd. 

Format: 

^COMMENT comments 

comments Character string. 

WIDTH - SET LINE WIDTH ON 
COMPILE FILE 

The WIDTH directive allows the user to change the 
width of lines during the compile phase. Modify 
uses the new width until it encounters another 
WIDTH directive. A compile file WIDTH directive 
is active only for the deck in which it is encoun- 
tered. An initialization WIDTH directive is active 
for all other decks. 

Format: 

* WIDTH n 

n Number of columns preceding 

sequence information on com- 
pile file and source file. 
Modify allows a maximum of 
100 columns. 

| NOTE | 

During initialization of Modify, width is 
set to 72; additional columns of data are 
truncated. 
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NOSEQ - NO SEQUENCE INFORMATION 

The NOSEQ directive allows the user to set the no 
sequence flag during the write compile file phase. 
When no sequence information is requested, Modify 
does not include sequence information on the com- 
pile file. A. SEQ directive encountered subsequent 
to NOSEQ resumes sequencing. 

Format: 

*NOSEQ 

SEQ - INCLUDE SEQUENCE INFORMATION 

The SEQ directive allows the user to clear the no 
sequence flag during the write compile file phase and 
to begin placing sequence information on the compile 
file. A NOSEQ directive encountered subsequent to 
a SEQ sets the no sequence flag. 

Format: 

*SEQ 

WEOR - WRITE END OF RECORD 

Modify unconditionally writes an end-of-record on 
the compile file when encountering the WEOR direc- 
tive. 

Format: 

*WEOR 



CWEOR - CONDITIONALLY WRITE END 
OF RECORD 

Modify writes an end-of-record on the compile file 
if information has been written to the compile file 
since the last end-of-record was written. 

Format: 

*CWEOR 



WEOF - WRITE END OF FILE 

Modify writes an end -of -file on the compile file. 
Format: 

*WEOF 



COMPILE FILE DIRECTIVE! EXAMPLES 

Figure 6-1 illustrates several of the compile file 
directives presented in this section. 
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batch 

$RFL,0. 

/old f opl=mainpl 

/get, csub 

/copycr.csub 

DECK4 



•COMMENT 

•nifcall 

SUB3 



JOT 



IDENT SUB3 
ENTRY SUB3 
CALL DECK DECK5 
CALL COMMON DECK. 

MYTEXT,DECK5 < 

DATA 
ORIGIN JOT 

S0B3 

// 

1 



ENTRY/EXIT' 
RETURN 



Copy of source file to be incorporated into 
program library. 



{Notice call to common deck DECK5. If MYTEXT is 
defined during the modification run, DECK5 is not 
written on the compile file. 



EQ 

USE 

BSS 

END 
COPY COMPLETE. 
/copycr,csub 
DECK5 
COMMON 
ORIGIN MACRO 

SA1 

MXO 

BX6 

AX6 

SA6 

ENDM 
COPY COMPLETE. 

/modify , f , p=o , 1=0 , n=mainpl , c=com1 , s=mainp 
° •oplfile opl 



A 

66B 

24 

-X0«X1 

24 

A 



GET' JOB ORIGIN 



STORE JOB ORIGIN 



•rewind csub 
•create csub 
*ident mod4 
•deck deckl 



*i 2 



»i 3 



Modify run to create new program library 
consisting of source file and OPL. 



common jot 



call sub3 

if ( jot . eq . 3 ) print* , "time-sharing job. " 

if ( jot. ne.3)print», "batch job." 
*deck deck4 
*i 
•weor 

•deck deck3 
•i 
•weor 

•deck deck2 
•i 
•weor 



Addition of compile fiie directives. 



MODIFICATION COMPLETE, 
/catalog ,mainpl ,r 



REC 


CATALOG 
NAM3 


OF MAINPL 
TYPE 


FILE 
LENGTH 


1 
CKSUM 


DATE 


1 


DECK1 
M0D1 


OPL (64) 
MOM 


61 


3171 


77/10/07. 


2 


DECK3 
M0D1 


OPL (64) 
MOM 


37 


2333 


77/10/06. 


3 


DECK2 
M0D1 


OPL (64) 
M0D2 


60 
M0D3 


3077' 
MOM 


77/10/07. 


4 


DECK4 
M0D4 


OPL (64) 


47 


5063 


77/10/10. 


5 
6 


DECK5 
OPL 


OPLC (64) 
OPLD 


27 
13 


6354 
3706 


77/10/10. 
77/10/10. 


7 


* EOF * 


SUM a 


311 






CATALOG 


COMPLETE . 











Since no modifications are made to the common 
deck (DECK5), it is acceptable to have the com- 
mon deck after the calling deck (DECK4) on the 
program library. The next section will show 
how to rearrange the decks on the program 
library. 



Figure 6-1. Compile File Directive Examples (Sheet 1 of 3) 



6-4 



60450100 D 



o 
o 
o 

o 
o 
o 

o 

o 

o 
o 

o 
c 
o 

o 

o 
o 
o 

o 



o 
o 
o 

© 

o 
o 
o 
o 
o 



o 

© 
© 

© 



/copycr,com1 

*** MAIN PROGRAM, DECK DECK1 . 

PROGRAM MAIN( OUTPUT) 

COMMON JOT 

PRINT*, "EEGIN MAIN PROGRAM." 

CALL SUB3 

IF( JOr.EQ . 3) PRINT* , "TIME-SHARING JOB . " 

IF( JOT. NE . 3) PRINT* , "BATCH JOB . " 

CALL SUB1 ' 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
COPY COMPLETE. 
/copycr,com1 
*** SUBROUTINE 2, DECK DECK3. 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 
COPY COMPLETE. 
/oopycr,com1 
*** SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

* CALL SUBROUTINE SUB2 

* IN DECK2. 
CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1 ." 
RETURN 
END 
*** END DECK2. 
COPY COMPLETE. 
/copycr,com1 

IDENT 
ENTRY 



LLsting of compile file. 
Notice separation into 
records. 



SUB3 
SUB3 



COMMENT' 77/10/10. 77/10/10. CALL DECK DECK5 



*** CALL COMMON DECK. 
ORIGIN MACRO A 

66B 

24 

-X0*X1 

24 

A 



GET JOB ORIGIN 



SUB3 



JOT 







STORE JOB ORIGIN 



ENTRY/EXIT 



RETURN 



SA1 
MXO 
BX6 
AX6 
SA6 
ENDM 
DATA 

ORIGIN JOT 
EQ SUB3 

USE // 
BSS 1 
END 
COPY COMPLETE. 
/copycr,com1 

END OF INFORMATION ENCOUNTERED, 
/replace ,mainpl 
/pack,com1 
PACK COMPLETE. 
/ftn,i=com1 ,1=0 

.401 CP SECONDS COMPILATION TIME 
Ago 

BEGIN MAIN PROGRAM. 
TIME-SHARING JOB. 
ENTER SUBROUTINE 1 . 
ENTER SUBROUTINE 2. 
EXIT SUBROUTINE 2. 
EXIT' SUBROUTINE 1 . 
END MAIN PROGRAM. 

.007 CP SECONDS EXECUTION TIME 
/primary ,malnp 
$PRIMARY,MAINP. 



Notice that Modify has 
replaced *COMMENT 
directive with COMPASS 
COMMENT statement on 
compile file. 



MYTEXT was not de- 
fined during the modifi- 
cation run. Thus, the 
contents of DECK5 have 
been written on the com- 
pile file. 



M0D1 


1 


DECK1 


2 


M0D4 


1 


DECK1 


3 


M0D4 


2 


M0D4 


3 


MOD4 


4 


DECK1 


4 


DECK1 


5 


DECK1 


6 


DECK1 


7 


M0D1 


1 


DECK3 


2 


DECK3 


3 


DECK3 


4 


DECK3 


5 


DECK3 


6 


MOD1 


1 


DECK2 


2 


DECK2 


3 


*'0D1 


2 


M0D1 


3 


DECK2 


4 


DECK2 


5 


DECK2 


6 


DECK2 


7 


M0D1 


4 


DECK4 


1 


DECK4 


2 


DECK4 


3 


DECK4 


4 


DECK5 


1 


DECK5 


2 


DECK5 


3 


DECK5 


4 


DECK5 


5 


DECK5 


6 


DECK5 


7 


DECK4 


6 


DECK4 


7 


DECK4 


8 


DECK4 


9 


DECK4 


10 


DECK4 


11 



Figure 6-1. Compile File Directive Examples (Sheet 2 of 3) 
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/lnh.r 
DECK1 



MAIN PROGRAM, DECK DECK1 . 
PROGRAM MAIN( OUTPUT) 
COMMON JOT- 
PRINT*, "BEGIN MAIN PROGRAM." 
CALL SUB3 

IF( JOT.EQ . 3) PRINT* , "TIMESHARING JOB . " 
IF(JOT.NE.3)PRINT*, "BATCH JOB." 
CALL SUB1 

PRINT*, "END MAIN PROGRAM." 
STOP 
END 



--EOR- 
DECK3 
*WEOR 
*** 



Contents of source file created by Modify. 



SUBROUTINE 2, DECK DECK3. 
SUBROUTINE SUB2 
PRINT*, "ENTER SUBROUTINE 2." 
PRINT*, "EXIT SUBROUTINE 2." 
RETURN 
END 
EOR-- 



DECK2 
*VEOR 
*** 



*** 

--EOR- 
DECK4 
*WEOR 



SUBROUTINE 1 , DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 

CALL SUBROUTINE SUB2 

IN EECK2. 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1 

RETURN 

END 

END DECK2. 



1." 



•COMNENT 
#** 

*NIFCALL 
SUB3 



JOT 

--EOR-- 
DECK5 
COMMON 
ORIGIN 



IDENT' SUB3 
ENTRY SUB3 
CALL DECK DECK5 
CALL COMMON DECK. 
MYTEXT,DECK5 
DATA 
ORIGIN JOT 



Note that source file contains call to common 
deck. 



EQ 

USE 

BSS 

END 



MACRO 

SA1 

MXO 

BX6 

AX6 

SA6 

ENDM 



SUB3 
// 

1 



A 

66B 

2k 

-X0*X1 

24 

A 



ENTRY/EXIT 
RETURN 



GET' JOB ORIGIN 



STORE JOB ORIGIN 



-EOR— 



Figure 6-1. Compile File Directive Examples (Sheet 3 of 3) 
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SPECIAL DIRECTIVES 



The directives described in this section provide 
extended features. They can be any place in the 
directive file for either creation or correction and 
primarily affect the operating features of Modify. 

/ List comment. 

PREFIX Changes prefix character for 

directives other than compile 
file directives. 

PREFIXC Changes prefix character for 

compile file directives. 

INWIDTH Sets width of input line to be 

compressed. 

DEFINE Defines name under which sub- 

sequent IFCALL directive may 
cause a common deck to be 
written, or NIFCALL may 
prevent a common deck from 
being written. 

MOVE Moves decks on new program 

library. 

UPDATE Specifies editing sequence 

and modification set number- 
ing. 



/ - LIST COMMENT 

Other than being copied onto the Modify statistics 
(list) output, a comment line is ignored. It can 
occur any place in the directives file. 

Format: 

*/ comment 
Example: 

* / **#*** MO DIFICATIONS****** 



PREFIX - CHANGE MODIFY 
DIRECTIVES PREFIX 

The PREFIX directive resets the prefix character, 
for subsequent Modify directives. It does not affect 
the prefix of compile file directives. When Modify 
is initialized, the character is preset to *. Modify 
uses * if a PREFIX directive is not used. 

Format: 

* PREFIX x 

x Character used in first column 

of directive (except compile 
file directive). A blank char- 
acter is illegal. 



PREFIXC - CHANGE COMPILE FILE 
DIRECTIVES PREFIX 

The PREFIXC directive resets the compile direc- 
tive character so that only compile file directives 
with the x prefix are recognized. If a PREFIXC 
directive is not encountered, the default (*) is used. 

Format: 



*PREFIXC x 



Character used in first column 
of compile file directive. A 
blank character is illegal. 



INWIDTH - SET WIDTH OF INPUT TEXT 



The INWIDTH directive allows the user to set the 
width of input text from primary and alternate sources 
before it is compressed and written in the Modify 
library deck. An INWIDTH directive takes prece- 
dence over any previously defined width. INWIDTH 
can be placed anywhere in the directives file. 

Format: 

* INWIDTH n 

n Number of columns on input 

line to be compressed. Modify 
allows a maximum of 100 
columns. During initialization 
of Modify, width is preset to 
72. 



DEFINE - DEFINE NAME FOR USE BY 
IFCALL, NIFCALL, IF 

By defining a name and its associated value, a user 
establishes the conditions that must be met for a 
conditional call of a common deck. This allows 
external control of the calls embedded in source 
decks. If the name is not defined, an IFCALL for 
a common deck is ignored. If the name is defined, 
a NIFCALL for a common deck is ignored. A 
DEFINE directive must be processed in order for 
an IF conditional test to be true. 

Format: 



*DEFINE name, value 

name Name used in compile file 

IFCALL, NIFCALL, or IF 
directive. 

value Value assigned to symbol 

name (maximum value may be 
177777 g ). If omitted, name is 
defined with value zero. 
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MOVE - MOVE DECKS 

The MOVE directive enables the user to reorder 
decks while producing a new program library. The 
decks, deckname, are moved from their positions 
on the old library and placed after deckname r on 
the new library. 

Each deckname is selected for inclusion on the 
new program library by: 

• The use of the F option on the MODIFY 
control statement (all decks on the 
library are selected for the move). 

• The use of the U option on the MODIFY 
control statement (only those decks on 
the directives file for this run are 
selected for the move). 

• The use of *EDIT directives when 
neither the F nor the U options are 
selected on the MODIFY control 
statement. 



UPDATE - UPDATE LIBRARY 

Use of this directive causes Modify to continue 
sequencing rather than restart sequencing with 
each deck using the same IDENT. UPDATE also 
causes the order in which decks are edited to be 
according to their sequence on the old program 
library. 

Format: 

^UPDATE 



SPECIAL DIRECTIVE EXAMPLES 



Figure 7-1 illustrates several special directives. 
Note that compile file directives can be ignored 
(depending on language processor) by changing the 
compile file prefix character. 



Format: 



*MOVE deckname r , deckname^, deckname2» 



■ deckname 



batch 

$RFL,0. 

/old,opl=mainpl 

/modify, f ,c=com1 ,n=mainpl,l=0 

? */ change prefix character to # 

? "prefix # < 

? #ident mod6 

? #deck deck4 

? #i 4 

? space 4 

? #prefixc # < — 



? #move deck5,deck1,deck2,deck3,deck4 
? 
MODIFICATION COMPLETE, 
/catalog , tnainpl , r 

CATALOG .OF MAINPL 



REC NAM? 



3 

4 
5 

6 

7 



DECK5 

DECK1 

M0D1 

DECK2 
M0D1 

DECK3 
M0D1 

DECK4 
M0D4 

OPL 

* EOF * 



TYPE 

OPLC (64) 
OPL (64) 
M0D4 

OPL (64) 
M0D2 

OPL (64) 
M0D4 

OPL (64) 
M0D6 



FILE 
LENGTH 

27 
61 



1 

CKSUM 

6354 
3171 



M0D3 



OPLD 



1 

CATALOG COMPLETE, 
/replace, mainpl 



SUM 



60 

37 

53 

13 
315 



3077 
M0D4 

2333 
3057 
1175 



DATE 



77/10/10. •*- 
77/10/07. 



77/10/07. 
77/10/06. 
77/10/10. 
77/10/10. 



-Change Modify directive prefix character. 



Change compile file prefix character so 
directives on program library will be inter- 
preted as comments. 



_The common deck (DECK5) now comes 
before any deck that might call it. 



Figure 7-1. Special Directive Examples (Sheet 1 of 3) 
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Vcopycr.coml 
*** MAIN PROGRAM, DECK DECK1 . 

PROGRAM MAIN( OUTPUT) 

COMMON JOT 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB3 

IF(JOT.EQ.3)PRINT», "TINE-SHARING JOB. 

IF(JOT.NE.3)PRINT*, "BATCH JOB." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 



*VEOR 
*** 



*** 

*WEOR 



*VEOR 



SUBROUTINE 1, DECK DECK2. 

SUBROUTINE SUB1 

PRINT*, "ENTER SUBROUTINE 1." 

CALL SUBROUTINE SUB2 

IN DECK2. 

CALL SUB2 

PRINT*, "EXIT SUBROUTINE 1 ." 

RETURN 

END 

END DECK2. 

SUBROUTINES, DECK DECK3. 

SUBROUTINE SUB2 

PRINT*, "ENTER SUBROUTINE 2." 

PRINT*, "EXIT SUBROUTINE 2." 

RETURN 

END 



Listing of compile file. 
Compile file directives 
have been ignored. 



♦COMMENT 
*** 

*CALL 

SUB3 



IDENT SUB3 

ENTRY SUB3 

CALL DECK DECK5 

CALL COMMON DECK. 

SPACE 4 

DECK5 

DATA ENTRY/EXIT 

ORIGIN JOT 

EQ SUB3 RETURN . 

USE // 
JOT BSS 1 

END 
COPY COMPLETE. 
/copycr,com1 

FND.OF INFORMATION ENCOUNTERED, 
/modify , c=com2 , 1=0 , n=mainpl , u 
? * define example 
? *ident mod7 
? *deck deckl 
? *modname mod4 
? * insert 2 
? *if def, example 

? print*, "example has been defined." 

? "else 

? print*, "example has not been defined 

? *endif 



MOD1 


1 


DECK1 


2 


M0D4 


1 


DECK1 


3 


MOD4 


2 


M0D4 


3 


M0D4 


4 


DECK1 


4 


DECK1 


5 


DECK1 


6 


DECK1 


7 


M0D4 


1 


M0D1 


1 


DECK2 


2 


DECK2 


3 


M0D1 


2 


M0D1 


3 


DECK2 


4 


DECK2 


5 


DECK2 


6 


DECK2 


7 


M0D1 


4 


MOD4 


1 


MOD1 


1 


DECK3 


2 


DECK3 


3 


DECK3 


4 


DECK3 


5 


DECK3 


6 


MOD4 


1 


DECK4 


1 


DECK4 


2 


DECK4 


3 


DECK4 


4 


MOD6 


1 


DECK4 


5 


DECK4 


6 


DECK4 


7 


DECK4 


8 


DECK4 


9 


DECK4 


10 


DECK4 


11 



EXAMPLE is defined before modset 
MOD7 is identified. Thus, when modset 
MOD 7 goes into effect during this modifi- 
cation run, EXAMPLE will be defined 
but not as part of modset MOD7. 



MODIFICATION COMPLETE . 
/copycf ,com2 
*** MAIN PROGRAM, DECK DECK1 . 

PROGRAM MAIN(OUTPUT) 

COMMON JOT 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB3 

PRINT*, "EXAMPLE HAS BEEN DEFINED."* 

IF ( JOT .E Q . 3 ) PRINT* , "TIME-SHARING JOB . " 

IF(J0T.ffi.3)PRINT*, "BATCH JOB." 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
END OF INFORMATION ENCOUNTERED. 



Inserted line. 



MOD1 

EECK1 

MOD4 

DSCK1 

M0D4 

M0D7 

M0D4 

MOD4 

DECK1 

DSCK1 

DECK1 

DSCK1 



Figure 7-1. Special Directive Examples (Sheet 2 of 3) 
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/modify , c=com3 , 1=0 , p=mainpl 

? *edit deckl 

? 

MODIFICATION COMPLETE . 
/copycf ,com3 
*** MAIN PROGRAM, EECK DECKL 

PROGRAM MAIN(OUTPUT) 

COMMON JOT 

PRINT*, "BEGIN MAIN PROGRAM." 

CALL SUB3 

PRINT*, "EXAMPLE HAS NOT BEEN DEFINED." 

IF (JOT .EQ. 3)PRINT* ,"TI(£-SHARING JOB." 

IF ( JOT . MS . 3 ) PRINT* , "BATCH JOB . " 

CALL SUB1 

PRINT*, "END MAIN PROGRAM." 

STOP 

END 
END OF INFORMATION ENCOUNTERED. 



EXAMPLE is not defined during 
this modification run. The *ELSE 
path in modset MOD7 will be taken. 



-Inserted line. 



MOD1 


1 


DECK1 


2 


M0D4 


1 


DECK1 


3 


MOD4 


2 


MOD? 


4 


M0D4 


3 


MOD4 


4 


DECK1 


4 


EECK1 


5 


DECK1 


6 


DECK1 


7 



Figure 7-1. Special Directives Examples (Sheet 3 of 3) 
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MODIFY FILE FORMATS 
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Types of Modify files significant to Modify execu- 
tion include: 

• Source files 

• Program library files 

• Directives file 

• Compile file 



SOURCE DECKS AND FILES 

A source file is a collection of information either 
prepared by the user or generated by Modify. 



SOURCE DECKS PREPARED BY USER AS INPUT 
TO MODIFY 

A user prepares a source deck for input to Modify 
by placing a deck name and optionally a COMMON 
statement in front of the source language deck 
(figure 3-1). At the same time, the user also in- 
serts compile file directives, as required, into the 
source language deck to control compile file output 
from Modify. Each source deck is terminated by 
an end-of-record. A group of decks is terminated 
by an end-of-file or end -of -information. The deck- 
name and COMMON statements are not placed on 
the program library. 

Modify source decks should not be confused with a 
compiler or assembler program. A Modify source 
deck can contain any number of FORTRAN programs, 
subroutines or functions; COMPASS assembler 
IDENT statements; or set of data. Typically, each 
Modify deck contains one program for the assembler 
or compiler or one set of data. 



SOURCE FILES GENERATED BY MODIFY 

The source file generated as output by Modify con- 
tains a copy of all active lines within decks written 
on the compile file and new program library. The 
source file is optional output from Modify and is 
controlled through use of the S option on the Modify 
control statement. Once generated, the source 
file can be used as source input on a subsequent 
Modify run. The file is a coded file that contains 
80-column images. Any sequencing information . 
beyond the 80th column is truncated. When F is 
selected on the Modify control statement, the 
source file contains all lines needed to recreate the 
latest copy of the program library. 



When U is selected, the source file contains only 
those decks named on DECK directives; that is, only 
the decks updated during the current Modify run. 

When neither F nor U is selected, the source file 
contains only those decks explicitly requested on 
EDIT directives. 



PROGRAM LIBRARY FILES 

Program library files (figure 8-1) provide the pri- 
mary form of input to Modify. When a program 
library file is input, it is an old program library 
and has a default name of OPL. When it is output, 
it is a new program library and has a default name 
of NPL. During execution of Modify, the program 
library files must reside on mass storage. 



prefix table ; 



modification table 



text I 



Deck (record) | 



End-of-record 



prefix tableg 



modification tableg 



textg 



Deck (record)? 



End-of-record-) 



prefix table 3 



T 



J 



End-of-record n -| 



prefix table n 



modification table n 



Deck (record) n 



End -of- record n 



prefix table n+ | 



directory table 



End-of-record n + ( 
End -of -information 

Figure 8-1. Library File Format 
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Before writing the new program library, an EVICT 
is performed on the file. Refer to the NOS Reference 
Manual, volume 1, for a description of the EVICT 
operation. 

A program library consists of a record for each 
deck on the library. The last deck record is followed 
by a record containing the library directory. The 
contents of the new program library is determined 
by EDIT directives and the control statement options. 
Only edited decks are written on the new program 
library. 



DECK RECORDS 

Each deck record consists of a prefix table, a 
modification table, and text. 



Prefix Table 

59 


Format: 

47 


35 


17 


II 







7700 


i_ 


16 


1 







1 








deckname 


1 


reserved 


2 


creation dote 


3 








last 


modification date 






• 
• 
• 

7 


zeros 


• 










comments 






Ib 8 


| char set 



8-2 



ID 

Word Bits Field 

| 59-48 Table 

type 

47-36: wc 

35-00 none 

1 59-18 deckname 



17-00 none 



59-00 



59-00 



creation 
date 



latest 
modifica- 
tion 
date 



16 8 11-00 char set 



Description 

Identifies table as pre- 
fix table. 

Word count; length of 
table is I63 words. 

Reserved for future 
system use. 

Name of deck obtained 
for source deck identi- 
fication line; one to 
seven characters. 

Reserved for future 
system use. 

Date that deck was 
created. 

Format of date is: 

yy/mm/dd. 

Date of most recent 
entry in modification 
table. Format of the 
date is the same as for 
creation date. 

Identifies character set 
used to create this deck. 

0000 8 63-character 
set 

0064g 64 -character 
set 



Modification Table Format: 



ID Word 

I 
2 

t-\ 



ID 
Word 



modname 



mcdnome2 



't-\ 



Bits Field 



59-48 Table 

type 



Description 

Identifies table as modifi- I 
cation table. The least 
significant digit indicates 
whether the deck is com- 
mon or not as follows: 



Deck is not common 
Deck is common 



47-12 none 
11-00 i 

wordj 59-18 modname^ 



16 



n 



Reserved for future sys- 
tem use. 

Number of modification 
names in table. 

One- to seven- character 
modification set name. 
Each modification to a 
deck causes a new entry 
in this table. 

YANK flag 

Modifier not yanked 

1 Modifier yanked 



Text Format: 

Text is an indefinite number of words that contain a 
modification history and the compressed image of 
each line in the deck. Text for each line is in the 
following format. 



59 


53 




35 


17 







a! wc 


seq. no. 


mhb| 


mhbg 


m 


mhb 3 


mM>4 


mhbs 






, 








compressed text 



Bits Field 



59 



58-54 wc 



53-36 seq. no. 



Description 

Activity bit: 

Line is inactive 

1 Line is active 

Number of words of com- 
pressed text. 

Sequence number of line 
(octal) according to position 
in deck or modification set. 
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Bits 



Field 



35-18 


mhb. 


and 




subse- 




quent 




18-bit 




bytes 





Description 

Modification history byte. 
Modify creates a byte for each 
modification set that changes 
the status of the line. Modifi- 
cation history bytes continue 
to a zero byte. Since this 
zero byte could be the first 
byte of a word and the com- 
pressed line image begins a 
new word, the modification 
history portion of the text 
could terminate with a zero 
word. The format of mhbi 
is: 



M. 



Activate bit 



Modification set 
deactivated the 
line 

1 Modification set 
activated the line 

mod. Index to the entry in 

no. the modification table 

that contains the 
name of the modifi- 
cation set that chang- 
es the line status. 
A modification number 
of zero indicates the 
deck name. 

com- The compressed image of the 

pressed line is display code. One or 

text two spaces are each repre- 

sented by 55g; they are not 
compressed. Three or more 
embedded spaces are replaced 
in the image as follows: 

3 spaces replaced by 0002 

4 spaces replaced by 0003 



64 spaces replaced by 0077s 

65 spaces replaced by 
007755 8 

66 spaces replaced by 
00775555 8 

67 spaces replaced by 
00770002s, etc. 

Trailing spaces are not con- 
sidered as embedded and are 
not included in the line image. 
Qn a 64 -character set program 
library or compressed compile 
file, a 00 character (colon) is 
represented as a 0001 byte. A 
12 -bit zero byte marks the end 
of the line. 



DIRECTORY RECORD 

The library file directory contains a prefix table 
followed by a table containing a two-word entry for 
each deck in the library. Directory entries are 
in the same sequence as the decks on the library. 



Prefix Table Format: 





59 




47 




35 


17 










7700 


1 


16 


1 







1 








name 




1 


reserved 


2 


date 


• 
• 


























zeros 






7 
















8 
















• 










comments 






B 

















name A Modify-generated directory has 
the name OPL. However, if the 
name of the directory is changed 
(by LIBEDIT, for example), that 
name is retained on new program 
libraries then generated. 



Directory Table Format: 



i-i 
i 

ID 
Word 





1.3, 

• • • J 

I -1 



7000 


j 









I 


decknamfrj 


typei 









| 


random address | 






deeknameg 




j t»P*2 









1 


random addressg 


• 






decknamei/2 




I 'yPei/2 









1 ■ 


random address i /% 



Bits Field 



Description 



59-48 Table type Identifies table as pro- 
gram library directory. 



17-00 i 



Directory length ex- 
cluding ID word. 



59-18 deckname. Name of program library 
deck; 1 to 7 characters 
left-justified. 

17-00 type. Type of record. 

6 Old program li- 
brary deck (OPL) 

7 Old program li- 
brary common 
deck (OPLC) 

10 Old program li- 
brary directory 
(OPLD) 



| NOTE | 

Other record types are defined but are 
ignored by Modify (refer to the NOS 
Reference Manual, volume 1, for a com- 
plete description of record types). 



2,4, 



..I 



29-00 random 
address. 



Address of deck rela- 
tive to beginning of file. 
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DIRECTIVES FILE 

The directives file contains the Modify directives 
record. This record consists of initialization, file 
manipulation, and modification directives, and any 
source lines (including compile directives) to be 
inserted into the program library decks. An option 
on the Modify control statement designates the file 
from which Modify reads directives. Normally, 
the directives file is the job INPUT file. READ and 
READ PL directives cause Modify to stop reading 
directives from the directives file named on the 
Modify statement and to begin reading from some 
other file containing directives or insertion lines. 



COMPILE FILE 

The compile file is the primary form of output for 
Modify. It can be suppressed by the user as a 
Modify control statement option, when no compila- 
tion or assembly follows the modification. 



If a compile file is specified on the Modify control 
statement, Modify writes the edited programs on it 
in a format acceptable as source input to an assem- 
bler, compiler, or other data processor. Through 
control statement parameters and directives, a 
user can specify whether the text on the file is to 
be compressed or expanded, sequenced or unse- 
quenced. If the text is expanded, the user can also 
specify the width of each line of text preceding the 
sequence information. 



Expanded compile file format for each line consists 
of x columns of the expanded line (where x is the 
width requested), followed by 14 columns of se- 
quence information, if sequencing information is 
requested, and terminated by a zero byte. An 
end -of -record terminates the decks written on the 
compile file. 



Compressed Compile File (A-Mode) Format: 



59 47 35 

7700 | QQI6 | chor I 



compressed line | 



compressed line n 



char set 



seq. no. 



compressed 
line 



SCRATCH FILES 



Character set of record. 
00008 signifies 63-character 
set. 0064 8 signifies 64 -char- 
acter set. 

Sequence number of the line 
relative to the modification 
set identified by modname. 

A line in compressed form. 
Refer to the compressed text 
description for text formats 
of deck records. 



Modify uses scratch files in three situations. 

Scratch File 1 Used when common decks are 
(SCR1) modified and no new program 

library is requested. 

Scratch File 2 Used when insertions overflow 
(SCR2) memory. 

Scratch File 3 Used when a CREATE or 
(SCR3) COPYPL directive is processed. 

This file is in program library 

format. 

These files are returned by Modify at the end of the 
Modify run. 
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CREATE PROGRAM LIBRARY 

EXAMPLE 1 

This example illustrates how Modify can be used to construct a file in program library format from 
source decks. This example contains only one source deck (PROG) consisting of a FORTRAN pro- 
gram. The deck is terminated by an end-of-file card. The next record on INPUT contains the 
directives. It is the user's responsibility to save the newly created program library (TAPE) for use 
in future Modify runs. 

Unless C=0 is specified, a compile file is generated. This example shows the compile file (COMPILE) 
being used as input to the compiler. The compiler places the compiled program on LGO; the LGO 
card calls for loading and execution of the compiled program. 

COPYBFUNPUT, SOURCE) 
MODIFY(P=0, N=TAPE, F) 
FTN(I=COMPILE) 



LGO. 
7/8/9 
PROG 



(SOURCE DECK) 



File related cards 



6/7/9 
*REWIND 
*CREATE 
6/7/8/9 



SOURCE 
SOURCE ' 



•Directives Input 



EXAMPLE 2 

This example illustrates creation of a library from source decks on a source file other than INPUT. 
After the library has been created, it can be modified, edited, and written on a compile file for use 
by an assembler or compiler. 



Contents of File SALLY: 
TOM 

COMMON 



(SOURCE DECK FOR TOM) 



7/8/9 
JACK 
COMMON 



(SOURCE DECK FOR JACK) 



Job Deck: 






(JOB CARD) 


File related 


• 




cards 


MODIFY(N, 


F, P=0) 




7/8/9 

''REWIND 

*CREATE 


SALLY 
SALLY 




; 




Directives Input 


*DEFINE 


REQ 




7/8/9 







7/8/9 
RON 



(SOURCE DECK FOR RON) 



*CALL TOM 
*IFCALL REQ, JACK 
6/7/8/9 
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MODIFY PROGRAM LIBRARY 

EXAMPLE 1 

In this example, Modify uses all default parameters. The sequencing information shown for inserted 
cards is assigned during modification. 



File related cards 



7/8/9 

*IDENT MOD10 

*DECK BOTTLE 

*/ *****MODIFICATIONS 

*D 10 

*D 4 

(CARD TO BE INSERTED IS ASSIGNED MOD10.1) 

*D 20,22 

(CARDS TO BE INSERTED ARE ASSIGNED TO MOD10. 2 THROUGH MOD10. 4) 

*I MOD9.30 

(CARD TO BE INSERTED IS ASSIGNED MOD10. 5) 

*EDIT BOTTLE 

6/7/8/9 



EXAMPLE 2 

This job modifies deck EDNA for replacement on the program library. No compile file is produced. 





o 




o 


inserted 


o 




o 




^u^rfr 




O 


Modification 
set MOD10 


o 




o 




c 



o 



MODIFY(N, C=0) 



7/8/9 

*IDENT A 2 

*DECK EDNA 

*MODNAME Al 

*/ *****MODIFICATIONS 

*D 30 

TAG RJ 

*MODNAME EDNA 
*I 7011 

ERR SA1 

ZR 

PRINT 
EQ 
*D 7644,7650 1 
*EDIT EDNA I "* 



rFile related cards 



CHECK 



LIST1 

XI, ABORT 

( *=:<* ERROR 131 

ABORT 



***) 



6/7/8/9 



Modification set A2 



Delete card Al. 30 
Insert card A 2. 1 



Insert cards A2. 2 through A2. 5 
after EDNA. 7011 



I Delete cards EDNA. 7644 through 
" | EDNA. 7650 



o 
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MOVE TEXT 

EXAMPLE 1 

The job illustrated below calls Modify twice. On the first call. Modify deactivates all but c'ards 32 
through 54 and writes the source for these cards on source file FRANK. On the second call, Modify 
deletes the remainder of the cards and reinserts the saved cards at the beginning of KEN. 



MODIFY(S=FRANK, C=0) 
MODIFY(N, C=CAL) 



/8/9 

IDENT MOV1 

DECK KEN 

D 1,31 

D 55,63 

EDIT KEN 

/8/9 

IDENT MOV2 

REWIND FRANK 

DECK KEN 

32,54 


FRANK, KEN 
KEN 



*D 
*I 

*READ 
*EDIT 

3/7/8/9 



File related cards 



Modification set MOV1 

Delete cards before card KEN. 32 
Delete cards KEN. 55 through KEN. 63 
Transfer remaining cards (KEN. 32 through 

KEN. 54) to source file FRANK 
Modification set MOV2 



Delete remainder of cards in KEN 
Insert cards at beginning of KEN 
Read insertion text from deck KEN on file 
FRANK 



EXAMPLE 2 

This job moves text cards from one deck to another. On the first call to Modify, cards 32 through 
54 of deck KEN on file OPL are saved on source file FRANK. On the second call, the saved cards 
are inserted into deck WILL. 



MODIFY(S= FRANK, C=0) 
MODIFY(N, C=MEL) 



/8/9 




IDENT 


Fl 


DECK 


KEN 


D 


1,31 


D 


55,63 


EDIT 


KEN 


/8/9 




REWIND FRANK 


IDENT 


F2 


DECK 


WILL 


I 


25 


READ 


FRANK, KEN 


EDIT 


WILL 


/7/8/9 





:File related cards 



Modification set Fl 



Delete cards KEN. 1 through KEN. 31 
Save cards KEN. 32 through KEN. 54 on source 
file FRANK 



Insert text after card WILL. 25 

Insertion text taken from deck KEN on file FRANK 

Deck WILL is written on NPL and compile file MEL 
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READ DIRECTIVES FROM AN ALTERNATE FILE 

This job illustrates how the READ directive can be used to change the source of directives and correction 
text from the primary input file (in this case INPUT) to some other file. 



:<- 



■File related cards 




MODIFY. 

COMPASS(I=COMPILE) 

LGO. 

7/8/9 

*IDENT JAN 

*READ DIR- 

*DECK C 



7/8/9 



Read contents of DIR 
*DECK A 



*DECK B 



6/7/8/9 



6/7/8/9 



Return to INPUT file 



YANK AND UNYANK MODIFICATION SETS 



Corrections for A 



Corrections for B 



This example illustrates a job that logically removes all of the modification sets applied to program 
library LIB from the modification set named JULY and on. The change is not incorporated into the 
library; it is for the benefit of this run only. 



o 
o 
o 
o 
o 
o 
o 



o 



r 



'> 



• File related cards 



MODIFY(P=LIB, F) 

COMPASS(I=COMPILE) 

LGO. 

7/8/9 

*IDENT NEGATE 

*DECK MASTER 

*YANK JULY, * 

6/7/8/9 



To incorporate the preceding change on a new program library, add the N parameter to the Modify 

statement. 

The effects of a YANK can be nullified in future runs and, consequently, the effects of the yanked 
modification sets can be restored through the UNYANK directive. Such a modification might appear 
as follows: 



IDENT RESTORE 
DECK MASTER 
UNYANK JULY, * 



9-4 
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PURGE DECKS 

Decks BAD, WORSE, and WORST are no longer needed. The following job removes them from the library. 
They could also be removed through a selective edit using EDIT directives. In either case, the removal is 
permanent. 



MODIFY(N, C=0, F) 



: File related cards 



7/8/9 

*PURDECK BAD, WORSE, WORST 

6/7/8/9 



CHANGE THE DIRECTIVES PREFIX CHARACTER 

EXAMPLE 1 

This example illustrates how to maintain directives input on a library. Because * is the prefix used 
on the library, a different prefix is required when modifying the library. In this case, / becomes the 
prefix character. 

ATTACH(OPL) 

GET(FIX) 

MODIFY(P=FIX, C=Z, N=FIX2) 

REWIND(Z) 

COPYSBF(Z, OUTPUT) 

REWIND(Z) 

MODIFY(I=Z) 

COMPASSd, S, B=LT01) 



7/8/9 






* PRE FIX 


/ 




/WIDTH 


58 




/IDENT 


Fl 




/DECK 


CORR 




/I 


873 




*I 


1007 






LDC 


7777B 




STM 


STMA+1 


/D 


880 




/EDIT 


CORR 




6/7/8/9 







The contents of deck CORR on compile file Z are as follows: 



IDENT 

DECK 

I 


NIX 

GRM1TD 
MHD2. 19 




CORR 
CORR 
CORR 


1 

2 
3 




D 
I 


997,1000 
1007 
LDC 

STM 


7777B 

STMA+1 


CORR 

Fl 
Fl 

Fl 


873 
1 
2 
3 


\ Inserted cards 


D 


LJM 
980,984 


STM 


CORR 
CORR 


879 
881 


Instructior 
has been c 



After file Z is produced, the deck GRM1TD is modified by the contents of Z. The resulting compile 
file (COMPILE) contains COMPASS language PPU code and is assembled using COMPASS. 
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The job produces a new program library (PIX2) which replaces FIX so that the changes to deck 
CORK are saved. 



The resulting COMPASS listing would appear as follows: 



Corrections 

on File Z 

(Correction IDs) 



Contents of 
COMPILE 
(Deck IDs) 



STD SM 
LDC 7777B 
STM STMA+ 1 



Fl 
Fl 



GRM1TD 

NIX 

NIX 



1007 
11 
12 



Since the comments go through the correction identification, the INWIDTH directive must be deleted 
if a new program library is generated. However, for maintenance, there is an advantage of seeine 
the correction identifiers with the deck identifiers. 

EXAMPLE 2 

This example illustrates changing the compile file prefix character so that when Modify produces the 
compile file, it recognizes only directives using the specified prefix. The directives prefix, in this 
case, is unaltered. 



ATTACH(OPL) 

MODIFY. 

COMFASS(I, S,B) 

7/8/9 

*IDENT TEST1 

*DECK TEST 

*PREFIXC / 

*EDIT TEST 

6/7/8/9 



Deck TEST contains the following: 



LDM TCLT 

STD CM 



*CALL PPC 
/CALL PPCA 

Modify ignores the common deck call to PPC. COMPASS interprets it as a comment card. Modify 
acts on the common deck call to PPCA and replaces the /CALL directive with a copy of common 
deck PPCA. J 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o. 

A 

I 

I 

G 
C 
O 



o 
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USE OF THE Z PARAMETER 

EXAMPLE 1 

Suppose you want to create a compile file using an alternate OPL. The following deck illustrates 
this technique. 



MODIFY (Z)/*OPLFILE,OPLZ/*EDIT,DECKl 
6/7/8/9 

EXAMPLE 2 

Another use of Z might be to request editing of specific decks: 

MODIFY<Z)/*EDIT, DECK1, DECK2 

6/7/8/9 



60450100 F 9-7 | 



SAMPLE FORTRAN PROGRAM 

This set of Modify examples illustrates how Modify can be used for maintaining a poptosm it * a a 

EXAMPLE 1 

The following job places the FORTRAN program and subroutine as a sinplp Hp^ lr,KT?\ „ «, 
program library (NPL) and on the compile file (COMPILE^ FoUowing Modfty exeeufio^ FORTRAN 
is called to compile the program. The LGO card calls for execution of the combed Pro's ram ??££ 
program does not execute because of an error in the SUBROUTINE statement The nam f ofThe 
subroutine should be MSG, not MSA. e '■ ine name ot tne 



COPYBF(INPUT,sT 
MODIFY(P=0, N, F) 
FTN(I= COMPILE) 
LGO. 



:File related cards 



7/8/9 
ONE<- 



END OF RECORD 



-Deck name 



PROGRAM ONE (INPUT, OUTPUT, TAPED 
PRINT 5 
FORMAT (1H1) 
READ 100, BASE, HEIGHT, I 
FORMAT(2F10. 2, II) 
IF (I.GT. 0) GO TO 120 
IF (BASE.LE.O) GO TO 105 
IF (HEIGHT, LE. 0) GO TO 105 
GO TO 106 
CALL MSG 

AREA = . 5*BASE*HEIGHT 
PRINT 110, BASE, HEIGHT, AREA 
FORMAT (///, * BASE=*F20. 5, * HEIGHT= 
IF18.5, /, * AREA = *F20. 5) 
WRITE (1) AREA 
GO TO 10 
STOP 
END 

SUBROUTINE MSA 
PRINT 400 

£2™«J (/// * * FOLL OWlNG INPUT DATA NEGATIVE OR ZERO *) 

END 

6/7/9 END OF FILE* , , . .f„h^= a , 

-REWIND S source deck 

*CREATE S "* ~~~ — ~ — _____ n . ,. .. , 

7/8/9 END OF RECORD Directive. Input 



5 

10 

100 



105 
106 

110 



120 



400 



(Should be 
'(SUBROUTINE MSG 



200.24 
30O. 24 
400. 00 
326.32 
500.00 
000. 00 
700.43 
100.00 
050. 00 
150.00 



500. 76 
600. 76 
700. 00 
425. 36 
600. 00 
150.00 
800. 00 
300. 00 
100.00 
200. 00 



Data record 



6/7/8/9 END OF INFORMATION 



I 9- 
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EXAMPLE 2 

Examination of Modify output from the creation job reveals that the erroneous SUBROUTINE state- 
ment has card identifier ONE. 20. The following job corrects the error and generates a new program 
library. 



MODIFY(N, 


F) 




FTN(I=COMPILE) 




LGO. 






7/8/9 


END OF RECORD 


*IDENT 


MODI 




*DECK 


ONE 




*DELETE 

QTT1 


20 
3ROUT 


TTVTTP T\/T^ri r 


oU. 


UN H IvlkAji <i' 


7/8/9 






200.24 




500. 76 


300.24 




600.76 


400.00 




700. 00 


326.32 




425.36 


500.00 




600.00 


000.00 




150.00 


700.43 




800.00 


100.00 




300.00 


050.00 




100.00 


150.00 




200. 00 



• Identified as MODI. 1 on NPL 



Data record 



6/7/8/9 END OF INFORMATION 
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EXAMPLE 3 

This job uses the same input as the first job but divides the program into two decks: ONE and MSG. 
Deck MSG is a common deck. A CALL MSG directive is inserted into deck ONE to ensure that MSG 
is written on the compile file whenever deck ONE is edited. 



COPYBFUNPUT, S) 
MODIFY(P=0,N, F) 
FTN(I=COMPILE) 
LGO. 



File related cards 



END OF RECORD 



7/8/9 

MSG 

COMMON 

SUBROUTINE MSG 

PRINT 400 

FORMAT (///, * FOLLOWING INPUT DATA NEGATIVE OR ZERO 

RETURN 

END 

END OF RECORD 



400 



7/8/9 
ONE 



5 

10 

100 



105 
106 

110 



PROGRAM ONE (INPUT, OUTPUT, TAPED 
PRINT 5 
FORMAT (1H1) 
READ 100, BASE, HEIGHT, I 
FORMAT<2F10,2, II) 
IF (I.GT.0) GO TO 120 
IF (BASE. LE. 0) GO TO 105 
IF (HEIGHT. LE.0) GO TO 105 
GO TO 106 
CALL MSG 

AREA = . 5*BASE*HEIGHT 
PRINT 110, BASE, HEIGHT, AREA 
FORMAT (///, * BASE = *F20.5, * HEIGHT* 
IF18.5, /,* AREA=*F20. 5) 
WRITE (1) AREA 



GO TO 10 






120 STOP 






END 






*CALL MSG * 




' Replaced bv oommnn Hpr»lf TVfCJf^ 


6/7/9 END OF FILE 
*REWIND S 


on compile file 


'-CREATE S 






7/8/9 END OF RECORD 




200.24 


500. 76 




300.24 


600. 76 




400.00 


700.00 




326.32 


425. 36 




500.00 


600, 00 




000.00 


150.00 


Data record 


700.43 


800. 00 




100.00 


300,00 




050. 00 


100.00 




150.00 


200. 00 





6/7/8/9 END OF INFORMATION 
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EXAMPLE 4 

This example adds a deck to the library created in the previous example. With no new program 
library generated (N is omitted from Modify card), the addition is temporary. 



COPYBF(INPUT, S) 
MODIFY. 
FTN(I=COMPILE) 
LGO. 



=File related cards 



7/8/9 
TWO 



END OF RECORD 
PROGRAM TWO(INPUT, OUTPUT) 



Replaced by common deck MSG on 
compile file 



END 

*CALL MSG < 

6/7/9 

*REWIND S 

*CREATE S 

*IDENT MOD2 

*DECK MSG 

*DELETE MSG. 3 

400 FORMAT (///, * FOLLOWING INPUT DATA POSITIVE *) 

*EDIT TWO 

7/8/9 

(DATA RECORD) 

6/7/8/9 
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OPLEDIT UTILITY 



OPLEDIT is a NOS utility used in conjunction with 
Modify-formatted old program libraries (OPLs). 
The OPLEDIT routine is used to completely remove 
specified modification decks and modification iden- 
tifiers from an OPL. It can also be used to extract 
the contents of specified modification sets on an 
OPL file. 

The following are the OPLEDIT directives. 

'"EDIT Edit deck 

*PULLALL Generate modification set 

*PULLMOD Reconstruct modification set 

* PURGE Remove modification set 

The format of OPLEDIT directives is essentially 
the same for Modify directives (refer to section 2). 
The main difference is that OPLEDIT does not 
allow the user to change the prefix character. 
Therefore, the asterisk (*) must be used. 



EDIT - EDIT SPECIFIED DECKS 

The EDIT directive requests OPLEDIT to edit a 
program library deck and transfer it to the new 
program library. The deck names (p ^) specified 
normally are the decks that contain the modifica- 
tion identifiers. 



Format: 

-EDIT p r p 2 , 

Pi 



A deck name or range of 
decknames in one of the 
following forms: 

deckname 

deckname a . deckname^ 

The first form edits a deck on 
the library; the second form 
requests a range of decks 
starting with deckname a and 
ending with decknameb. 

If the deck names are in the 
wrong sequence, OPLEDIT 
issues the error message: 

NAMES SEPARATED BY 
*. * IN WRONG ORDER. 

If OPLEDIT fails to find one 
of the decks, it issues the 
message: 

UNKNOWN DECK - deckname. 



PULLALL - GENERATE MODIFICATION 
SET 

The PULLALL directive allows the user to generate 
a modification set that contains the net effect of all 
current modification sets or all modification sets 
added after and including a specific modification set. 

Formats: 

*PULLALL 

*PULLALL modname 

modname First modset to be included; all 
modsets following modname are 
also included, provided modname 
appears in the edited deck. 

For the first format, OPLEDIT builds a directive file 
suitable for submission to Modify using the *READ 
Modify directive. The file (specified by the M param- 
eter on the OPLEDIT control statement) contains the 
net effect of all modifications currently applied to the 
program library. As such, all Modify IDENT direc- 
tives are deleted and replaced by an IDENT ******* 
at the beginning of the file. 



PULL-MOD - RECONSTRUCT 
MODIFICATION SET 

With the PULLMOD directive, the user can reconstruct 
one or more modification sets applied to edited decks. 
The structure of the original modset is maintained; 
that is, Modify IDENT directives are not changed or 
deleted as in the PULLALL directive. 

Format: 

*PULLMOD modname., modname,, .... modname 

modname. Modification name to be generated 
onto file specified by M param- 
eter on OPLEDIT control state- 
ment.. 



PURGE - REMOVE MODIFICATION SET 



The PURGE directive enables the user to completely 
remove the effects of a previous modification set or 
group of modsets from decks written on the new pro- 
gram library. The modification identifiers are no 
longer maintained in the history bytes (refer to Text 
Format, section 9) of the new program library. 
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Formats: 



* PURGE modname 
* PURGE modname, * 

modname Modification set to be removed. 

* Indicates that the modset and all 

subsequent modsets are to be re- 
moved, provided modname appears 
on the edited decks. 



Note that it is not possible to remove modsets implic- 
itly} that is, *PULLMOD A.B is illegal. Also, 
*PULLMOD A, * does not pull modset A and all 
modsets that follow (as on the *PURGE directive). 
Rather, it pulls modset A and modset *. 

Modification names requested are removed only 
from decks edited. Modsets generated by OPLEDIT 
are in a form suitable for use by Modify as follows: 

*READ, file, * 
*READ, file, ident 



That is, each modset is a separate record, with 
ident being the first line. The *PULLALL modset, 
if used, is the first record on the file. The file 
(specified by the M parameter) is returned before 
and rewound after use. 



OPLEDIT CONTROL STATEMENT 

The control statement format is: 



L=0 



M=lfn c 



LO or 

omitted 



List no output. 

Write output from 
*PULLMOD and 
*PULLALL directives on 
file lfn.. If M is omitted, 
M=MODSETS is assumed. 

Select List Options. List 
option E is selected if the 
list output file is assigned 
to an interactive terminal. 
Options C, D, E, M, and 
S are selected otherwise. 



OPLEDIT( Pl ,p 2 , 



■ • , P ) 



Any of the following in any order: 

I Use directive input from 

file INPUT. If the I 
option is omitted, file 
INPUT is assumed. 

I=lfn- Use directive input from 
file lftij. 

1=0 Use no directive input. 

P Use file OPL for the old' 

program library. If the 
P option is omitted, file 
OPL is assumed. 

P=lfn 2 Use file lfn 2 for the old 
program library. 

P=0 Use no old program 

library. 

N Write new program 

library on file NPL. 

N=lftig Write new program 
library on file lfn 3 . 

N=0 Write no new program 

library. If this option is 
omitted, N=0 is assumed. 

L List output on file 

OUTPUT. If the L option 
is omitted, file OUTPUT 
is assumed, 

L=lfn 4 List output on file lfn 4 . 
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List 
Option 

C 

D 

E 

M 
S 



Significance 

Input directives 

Deck status 

Errors 

Modifications made 

Directory lists 

LO=C]C2 Each character (c^ selects 
. . . c n an option to a maximum of 

five options. The charac- 
ters must not be separated. 

F Modify all decks. 

D Debug; ignore errors. 

U Generate *EDIT direc- 

tives for all decks. 

U = Generate no *EDIT direc- 

tives. If the U option is 
omitted, generate *EDIT 
directives for common 
decks only. 

Z The OPLEDIT control 

statement contains the in- 
put directives following 
the control statement ter- 
minator. The input file 
is not read. This elimi- 
nates the need to use a 
separate input file for 
the directives when only 
a few directives are 
needed. The first char- 
acter following the con- 
trol statement terminator 
is the separator charac- 
ter for all directives on 
the control statement. Any 
display code character which 
is not used in any of the 
directives, including a 
space, can be used as the 
separator character. 



o 
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The directives can extend to 
column 72 on the statement. 
Continuation cards are not 
permitted. If Z is omitted, 
the control statement does 
not contain the input 
directives. 



OPLEDIT EXAMPLES 

Figure A-l illustrates the four OPLEDIT directives. 



1 

CATALOG COMPLETE. 

/opledit , p=mainpl ,m=mods , lo= 1 , n=newpl 
? * purge mod4,* 
? *pullmod mod2,mod3 
? *pullall modi 
? *edit deck1.deck4 

9 

OPLEDIT COMPLETE, 
/catalog , newpl , r 



I NOTE | 

Do not place 
control state- 
ment termi- 
nator after 
the directives. 



batch 
$RFL,0. 
/get,mainpl 
/catalog , mainpl , r 

CATALOG OF MAINPL 
REC NAME TYPE 


FILE 
LENGTH 


1 
CKSUM 


DATE 


1 

2 


DECK5 

DECK1 

M0D1 


OPLC (64) 
OPL (64) 
M0D4 


27 
61 


6354 
3171 


77/10/10 
77/10/07 


.. 3 


DECK2 
M0D1 


OPL (64) 
M0D2 


60 
M0D3 


3077 
MOM 


77/10/07 


4 


DECK3 
M0D1 


OPL (64) 
M0D4 


37 


2333 


77/10/06 


5 


DECK4 
M0D4 


OPL (64) 
M0D6 


53 


3057 


77/10/10 


6 


OPL 


OPLD 


13 


1175 


77/10/10 


7 


* EOF * 


SUM = 


315 







REC 


CATALOG 
NAME 


OF NEWPL 
TYPE 


FILE 
LENGTH 


1 
CKSUM 


DATE 


1 


DECK1 
M0D1 


OPL (64) 


37 


7732 


77/10/07 


2 


DECK2 
M0D1 


OPL (64) 
M0D2 


55 
M0D3 


3134 


77/10/07 


3 


DECK3 

M0D1 


OPL (64) 


34 


3117 


77/10/06 


4 
5 


DECK4 
OPL 


OPL (64) 
OPLD 


44 
11 


0216 
2101 


77/10/10 


6 


* EOF * 


SUM = 


225 






CATALOG 


COMPLETE . 








. 



Figure A-l. OPLEDIT Examples (Sheet 1 of 2) 
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/copycr,mods 
******* 

•IDENT 

•deck 

*D,1 

*** 

•1,2 

•1,3 



******* 

DECK1 

MAIN PROGRAM, DECK DECK 1 . 



•DECK 

•1,0 

*WEOR 

*D,1 

*** 

F' 3 



COMMON JOT 

CALL SUB3 

IF ( JOT .EQ . 3 ) PRINT* , "TIME-SHARING JOB . " 
IF ( JOT . NE . 3 ) PRINT* , "BATCH JOB . " 
DECK2 



SUBROUTINE 1, DECK DECK2. 



CALL SUBROUTINE 
IN DECK2. 

END DECK2. 
DECK3 



SUB2 



•1,7 
*** 

•DECK 

•1,0 

•WEOR 

*D,1 

*** SUBROUTINE 2, DECK DECK3. 

COPY COMPLETE. 
/copyer,mods 
MOD2 

•IDENT M0D2 
•DECK DECK2 

•D.MOD1.3 
•RESTORE ,7 

COPY COMPLETE. 
/copycr,mods 
MOD3 

•IDENT MOD3 
•DECK DECK2 

•RESTORE, MOD 1.3 

COPY COMPLETE. 
/copycr,mods 

END OF INFORMATION ENCOUNTERED. 



Results of the PULLAL.L directive 



(3). 



"*v 



(3) 



These numbers indicate the location 
of a directive affecting a modset. 
They are the last active sequence number 
in the deck from which the directive 
was copied (refer to figure 4-1). 



Results of the PULLMOD 
directive 
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J 



Figure A^l. OPLEDIT Examples (Sheet 2 of 2) 
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OUTPUT LISTING AND MESSAGES 



B 



Depending on List options selected on the Modify 
controL statement, List output for Modify contains 
the following: 

• Input directives 

• Status of each deck 

Modifiers are listed first, foLLowed by a 
List of activated Lines, deactivated Lines, 
active Lines, and inactive lines as they are 
encountered. To the left of each line are 
two flags, a status fLag and an activity 
flag. The status flag can be I (inactive) or 
A (active). The activity flag can be D 
(deleted) or A (activated). Following 
these lines are the unprocessed modifica- 
tions and errors, if any. The Last line 
contains a count of active lines, inactive 
lines, and inserted Lines. 



Statistics 

This includes lists of the foLLowing: 

Decks on program Library 
Common decks on program Library 
Decks added by initialization directives 
Decks on new program Library 
Decks written on compile file 

A replaced deck is encLosed by parentheses. 
Completing the statistics is a Line contain- 
ing counts of the number of Lines on the 
compile file and the amount of storage used 
during the Modify run. 

Errors 

Modify prints the Line In error, if any, 
above the diagnostic message. Error 
messages other than those identified as 
fatal can be overridden through selection 
of the Modify statement D (debug) option. 
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D directive 4-2 
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Edit 4-3 
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Records 8-2 

Remove 4-3 

Replace 3-2 
DECK directive 4-2 
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Location 3-1 

Purpose 3-1 
Deck status B-l 
Declare OPL files 3-2 
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Define IF name 7-1 
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Define IFCALL name 7-1 
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Format 1-1 
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Alternate file 5-1 
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File manipulation 1-2; 5-1 

Initialization 1-2; 3-1 

Modify input 2-2 

Modification 1-2; 4-1 

On program library 5-1 

Special 1t2; 7-1 
Directory 

Library 8-3 
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Table 8-3 
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Full edit 4-4 
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EDIT (OPLEDIT) directive 
ELSE directive 6-2 
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End-of-file 6-3 
End-of-record 6-3 
End-of-reeord, conditional 6-3 
ENDIF directive 6-2 
Error messages B-2 
EVICT of NPL 2-2 
Execute COMPASS 2-2 
Execute program 2-2 
Execution of Modify 1-3 



F option 2-1; 4-4 

Features of Modify 1-1 

File formats 8-1 

File manipulation directives 5-1 

File positioning 5-2 

File, return 5-2 

File, rewind 5-2 

Files 

Compile 1-2; 2-1; 8-4 

COMPILE 2-1 

Directives 1-1; 2-2 

List output 2-2 

NPL 1-2; 2-2 

OPL 1-2; 2-2; 8-1 

Output files 1-1,2 
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Reserved 5-1 

Scratch 5-1; 8-4 

Source 2-2; 3-1; 8-1 

SOURCE 2-2 
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I option 2-2 
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IF directive 6-2 
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Input directives file 2-2 
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Line reactivation 4-2 
Line width 3-3; 6-2 
List comment 7-1 
List options 2-2 
List output file 2-2; B-l 
LO options 2-2 
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Modification date 8-2 
Modification directives 4-1 
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Modification name 4-1 
Modification table 8-2 
Modification set 

Deactivate 4-3 

Generate A-l 

Identifier 1-4; 4-1 

Name 1-4; 4-1 

Reconstruct A-l 

Remove A-l 
Modify 

Batch examples 9-1 

Batch processing example 1-5; 9-1 
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Control statement 2-1 
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Examples, general description 1-4 

Execution 1-3 

File formats 8-1 
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Interactive processing example 1-4 
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MOVE directive 7-2 
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Define 7-1 
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No rewind of compile file 2-2 
No sequence flag 3-3; 6-3 
No sequence information 3-3; 6-3 
NOSEQ directive 3-3; 6-3 
NPL file 2-2 
NR option 2-2 
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OPL file 2-2; 8-1 
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MODIFY CONTROL STATEMENT PARAMETERS 



MODIFY ( Pl , p2 ^ 



A Presence of A causes compressed compile file. 

C Compile file output; COMPILE if C or omitted. 

No compile file if C=0. Otherwise, output on 
file named (C=lfn). 

CB COMPASS binary output file; used with Q and X 
options only. Output on LGO if CB. No binary 
if CB=0. Otherwise, output on file named 
(CB=lfn). 

CG COMPASS get text option; used with Q and X 
options only. Systems text on SYSTEXT if CG. 
No system text if CG=0. Defined by CS option 
if CG is omitted. Otherwise, systems text on 
file named (CG=lfn). 

CL COMPASS list output; used with Q and X 

options only. Short list if CL=0 or omitted. 
Output on file OUTPUT if CL. Otherwise, list 
output on file named (CL=lfn). 

CS COMPASS system text; used with Q and X 

options only. Systems text on SYSTEXT overlay 
if omitted or CS. No systems text if CS=0; 
otherwise, systems text on file named (CS=lfn). 

CV Program library character set conversion. None 
if CV is omitted; 63 to 64 if CV=64; 64 to 63 if 
CV=63. 

D Debug option. Directive error or fatal error 
causes job step abort if D is omitted. No job 
step abort for directive errors if D is used. 

F Full edit. If omitted, deck editing determined 

by U option or by EDIT directives. If F is 
specified, all decks are edited and written on 
compile file, new program library, and source 
file. 

I Directives input. If omitted, directives and 

corrections on INPUT. If 1=0 there is no input 
file. Otherwise, on named file (I=lfn). 

L List output. Omitted or L, listings on 

OUTPUT. L=lfn, output to named file. L=0, no 
list output. 



LO List options. Omitted or LO, option E if list 

output file is assigned to a terminal; options E, 
C, T, M, W, D, and S if not assigned to a 
terminal. Otherwise, LO=Ci C2...Cr, to a 
maximum of seven options (ACDEIMST or W). 

N New program library. Omitted or N=0, no new 
library. N, output on NPL. N=lfn, output to 
named file. 

NR No rewind on compile file. Omitted, compile 
file rewound before and after MODIFY run. 

P Program library input. Omitted or P, library on 
OPL. P=lfn, library on named file. P=0, no 
program library input file. 

Q Execute assembler or compiler; no rewind of 
directives file or list output file. Omitted or 
Q=0, assembler or compiler not automatically 
called. Q, Modify sets A parameter and LO=E 
and calls COMPASS. This option enables CB, 
CG, CL, and CS options. If Q=lfn, Modify calls 
assembler on lfn. 

S Source output (illegal if A, Q, or X selected). 

Omitted or S=0, no source output. S, output on 
SOURCE. S=lfn, output on named file. 

U Update edit. Omitted, editing set by F or by 

EDIT directives. F takes precedence over U. If 
U, only decks changed (named on DECK 
directives) are edited and written on compile 
file, new program library, and source file. 

X Execute assembler or compiler; same as Q 
except directives file and list output file are 
rewound; 

Z Directives on Modify control statement. 
Omitted, directives are next record on INPUT I 
or identified by I option. Z, directives follow 
the Modify control statement terminator. Each 
directive must be preceded by a separator I 
character. 
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